(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    279019,       6477]
NotebookOptionsPosition[    276839,       6430]
NotebookOutlinePosition[    277270,       6448]
CellTagsIndexPosition[    277227,       6445]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["", "PageBreak",
 PageBreakBelow->True,ExpressionUUID->"6ecba142-7832-4671-bb86-5d440311dbe0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"2", "-", 
     RowBox[{"Sn", "/", "15"}], "-", 
     RowBox[{"PbTe", " ", "with", " ", "Rashaba", " ", "SOC"}]}], "*)"}], 
   "Title"], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "open", " ", "with", " ", "Mathematica", " ", "version", " ", "10.0", " ", 
    
    RowBox[{"email", ":", 
     RowBox[{"haiwen", ".", 
      RowBox[{"liu", "@", "bnu"}], ".", "edu", ".", "cn"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    StyleBox[
     RowBox[{"Tc", "=", "0.36"}],
     FontSize->16], 
    StyleBox[";",
     FontSize->16], 
    StyleBox[
     RowBox[{"(*", 
      RowBox[{"Tc", " ", 
       RowBox[{"Unit", ":", "Kelvin"}]}], "*)"}],
     FontSize->16], "\[IndentingNewLine]", 
    RowBox[{"Bp", " ", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
     RowBox[{"1.86", "*", "Tc"}]}], "*)"}], "\n", 
   RowBox[{"(*", 
    RowBox[{"parallel", " ", "field"}], "*)"}], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{
    RowBox[{"FFLOS", "=", "1.05"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{"largest", " ", "Hc2", " ", "for", " ", "FFLO", " ", "state", " ", 
     RowBox[{"Unit", ":", "Tesla"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataFFLO", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", " ", 
         RowBox[{"0", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.993518519", ",", 
         RowBox[{"0.06833713", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.987037037", ",", " ", 
         RowBox[{"0.124145786", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.977777778", ",", 
         RowBox[{"0.169703872", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.966666667", ",", " ", 
         RowBox[{"0.211845103", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.94537037", ",", 
         RowBox[{"0.272209567", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.925925926", ",", 
         RowBox[{"0.315489749", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.886111111", ",", 
         RowBox[{"0.386104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.858333333", ",", " ", 
         RowBox[{"0.427107062", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.823148148", ",", " ", 
         RowBox[{"0.466970387", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.767592593", ",", " ", 
         RowBox[{"0.51594533", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.734259259", ",", " ", 
         RowBox[{"0.541002278", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.699074074", ",", " ", 
         RowBox[{"0.561503417", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.652777778", ",", " ", 
         RowBox[{"0.583143508", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.598148148", ",", " ", 
         RowBox[{"0.60022779", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.555555556", ",", " ", 
         RowBox[{"0.61047836", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.521296296", ",", " ", 
         RowBox[{"0.617312073", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.462962963", ",", " ", 
         RowBox[{"0.630979499", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.405555556", ",", " ", 
         RowBox[{"0.648063781", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.37037037", ",", " ", 
         RowBox[{"0.662870159", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.312037037", ",", " ", 
         RowBox[{"0.690205011", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.277777778", ",", " ", 
         RowBox[{"0.709567198", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.233333333", ",", " ", 
         RowBox[{"0.739179954", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.185185185", ",", " ", 
         RowBox[{"0.776765376", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.140740741", ",", " ", 
         RowBox[{"0.814350797", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.092592593", ",", " ", 
         RowBox[{"0.86332574", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.072222222", ",", " ", 
         RowBox[{"0.886104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.027777778", ",", " ", 
         RowBox[{"0.946469248", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", 
         RowBox[{"1", "*", "FFLOS"}]}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "5", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", 
     RowBox[{"Tesla", ";", 
      RowBox[{"rescaled", " ", "as", " ", 
       RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
       RowBox[{"B", "/", "Bp"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02065", "/", "Tc"}], ",", " ", 
          RowBox[{"0.918", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02687", "/", "Tc"}], ",", " ", 
          RowBox[{"0.916", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.03377", "/", "Tc"}], ",", " ", 
          RowBox[{"0.908", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.04524", "/", "Tc"}], ",", " ", 
          RowBox[{"0.902", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.05884", "/", "Tc"}], ",", " ", 
          RowBox[{"0.88", "/", "Bp"}], "\:ff0c", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.07311", "/", "Tc"}], ",", " ", 
          RowBox[{"0.85", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.08185", "/", "Tc"}], ",", " ", 
          RowBox[{"0.834", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.09062", "/", "Tc"}], ",", " ", 
          RowBox[{"0.814", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.10254", "/", "Tc"}], ",", " ", 
          RowBox[{"0.784", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.11224", "/", "Tc"}], ",", " ", 
          RowBox[{"0.762", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.11834", "/", "Tc"}], ",", " ", 
          RowBox[{"0.748", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.12552", "/", "Tc"}], ",", " ", 
          RowBox[{"0.732", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.14586", "/", "Tc"}], ",", " ", 
          RowBox[{"0.686", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.15088", "/", "Tc"}], ",", " ", 
          RowBox[{"0.676", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.16717", "/", "Tc"}], ",", " ", 
          RowBox[{"0.638", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.18687", "/", "Tc"}], ",", " ", 
          RowBox[{"0.58", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.2181", "/", "Tc"}], ",", " ", 
          RowBox[{"0.526", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.26451", "/", "Tc"}], ",", " ", 
          RowBox[{"0.414", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.31263", "/", "Tc"}], ",", " ", 
          RowBox[{"0.278", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.36118", "/", "Tc"}], ",", " ", 
          RowBox[{"0.064", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.3774", "/", "Tc"}], ",", " ", "0", ",", "0.02"}], 
         "}"}]}], "}"}]}], ";"}],
    FontSize->16], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "0.65"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     FractionBox[
      RowBox[{"2", "\[Times]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
         SuperscriptBox["lamda12", "2"]}], ")"}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         StyleBox[
          RowBox[{"(", 
           RowBox[{"lamda11", "-", "lamda22"}], ")"}],
          FontSize->16], "2"], "+", 
        RowBox[{"4", "\[Times]", 
         SuperscriptBox["lamda12", "2"]}]}]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "2.04"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
      " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"betaf2", "=", "0"}], ";", 
    RowBox[{"scalef", "=", "2.65"}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], "-",
      "factor"}], "*)"}], 
   RowBox[{"(*", 
    RowBox[{"Bp", "=", 
     RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"arf", "=", "0.23"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "Rashba", " ", "SOC", " ", "for", " ", "the", " ", "major", " ", 
      "band"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"roupf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"roumf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]], "-", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{
           RowBox[{"2", "\[Times]", 
            SuperscriptBox["arf", "2"]}], "+", 
           SuperscriptBox["betaf1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x", "*", "Bp", "*", "scalef"}], ")"}], "2"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"roupf", "[", 
             RowBox[{"x", "*", "Bp"}], "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"roumf", "[", 
             RowBox[{"x", "*", "Bp"}], "]"}], "2"]}]]}], ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roupf", "[", 
              RowBox[{"x", "*", "Bp"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{
           RowBox[{"2", "\[Times]", 
            SuperscriptBox["arf", "2"]}], "+", 
           SuperscriptBox["betaf1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"x", "*", "Bp", "*", "scalef"}], ")"}], "2"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"roupf", "[", 
             RowBox[{"x", "*", "Bp"}], "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"roumf", "[", 
             RowBox[{"x", "*", "Bp"}], "]"}], "2"]}]]}], ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roumf", "[", 
              RowBox[{"x", "*", "Bp"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf2", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf2", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.05", ",", "1.0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "1.5"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"aa", ",", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Take", "[", 
         RowBox[{"data", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{"dataFFLO", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"Length", "[", "dataFFLO", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/\!\(\*SubscriptBox[\(T\), \(c\)]\)\>\"", ",", 
        "\"\<B/\!\(\*SubscriptBox[\(B\), \(p\)]\)\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.756727193397716*^9, 3.756727208376771*^9}, {
   3.756727274863331*^9, 3.75672738567222*^9}, {3.757119255345424*^9, 
   3.757119260809807*^9}, {3.7571192927085047`*^9, 3.757119310475031*^9}, 
   3.7571193444521713`*^9, {3.7571194145277376`*^9, 3.757119414823986*^9}, {
   3.757119453793769*^9, 3.7571194887801723`*^9}, {3.757119522004322*^9, 
   3.757119524883623*^9}, {3.7571195663846407`*^9, 3.757119570481685*^9}, {
   3.757119874217927*^9, 3.7571198789743724`*^9}, {3.757120116814783*^9, 
   3.757120133248272*^9}, {3.7571201678151035`*^9, 3.7571201845289335`*^9}, {
   3.7571405424719405`*^9, 3.757140543538063*^9}, {3.7571405771278095`*^9, 
   3.757140675198887*^9}, {3.757140948529543*^9, 3.7571409492436323`*^9}, {
   3.757141684153161*^9, 3.7571417490765142`*^9}, {3.7742663118572464`*^9, 
   3.7742664001727996`*^9}, {3.774266583583052*^9, 3.7742666672268553`*^9}, {
   3.7742667543024244`*^9, 3.774266774268505*^9}, {3.774266921735965*^9, 
   3.774267027923771*^9}, {3.7742670887607183`*^9, 3.7742671167775507`*^9}, {
   3.774267151867608*^9, 3.774267189177531*^9}, 3.7742701547227945`*^9, {
   3.774270191031938*^9, 3.774270216245509*^9}, {3.7745160760039544`*^9, 
   3.774516113955449*^9}, {3.774758129597274*^9, 3.774758133272054*^9}, {
   3.7747581831278963`*^9, 3.7747582509214015`*^9}, {3.7747583185247126`*^9, 
   3.7747583680633645`*^9}, {3.788762646463991*^9, 3.788762666428899*^9}, {
   3.788762828450265*^9, 3.788762842023294*^9}, {3.788764031258906*^9, 
   3.788764246779772*^9}, {3.7887683745664473`*^9, 3.788768375974769*^9}, 
   3.788771628627164*^9, {3.788772341072091*^9, 3.788772421191587*^9}, {
   3.788772465003367*^9, 3.788772498203425*^9}, {3.7887725894756393`*^9, 
   3.788772678225986*^9}, {3.788772801215114*^9, 3.788772861905052*^9}, {
   3.788772900470302*^9, 3.788772991195128*^9}, {3.788773925181369*^9, 
   3.7887740997150784`*^9}, {3.788777943448723*^9, 3.78877794405271*^9}, {
   3.7887780147771683`*^9, 3.7887780977668533`*^9}, {3.7887782539796267`*^9, 
   3.788778254462503*^9}, {3.788778388730554*^9, 3.788778414420282*^9}, {
   3.788778450858375*^9, 3.7887786209510517`*^9}, {3.7887787496157007`*^9, 
   3.788778750144315*^9}, {3.7887830659271183`*^9, 3.788783067723525*^9}, {
   3.7887836710612507`*^9, 3.7887836724836407`*^9}, {3.788784066769764*^9, 
   3.788784107952911*^9}, {3.78878529775877*^9, 3.788785300582939*^9}, {
   3.7887853982344093`*^9, 3.788785401609293*^9}, 3.788786014161776*^9, {
   3.7887882435622883`*^9, 3.788788280605022*^9}, 3.788788312383769*^9, {
   3.7887884803101473`*^9, 3.788788515140243*^9}},
 CellLabel->
  "In[2538]:=",ExpressionUUID->"ce6fefe9-3adc-4f8a-b34a-3c0f9569208f"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJxNVwk41Ov3V/0qlXJLhLoVkkKiRaLrkxaRlOhK/W7IltuCQqsJRZtyi7oS
Zb/2LJGdmQbRTK6R7doyY5uxzNdgigr/MXd+8/zf58zzfc4z7/f7nvM5n3PO
e5Qc3C2dZ0tISAwIfjPPn8xGDHiBdMSbyTTMO9RpuDLee1DCh47Xm+qicvMu
Qe9d5Hw5Dzpa314QSBC8JjSOZDvScVDmb6VX2k8gt32v34ARHTKMiKkXr8Kh
aB0enKP/v/0R2D/0pZK5lQ5PTWMLv6BI1Bv9LBA6DpmoM+4wo5Bz+tR1Oo+G
dTlHKv72jUP2Nqd6nS6BbhoikHiUxkjOcsml4Vou1XCXciJsFjR16ETTYN1r
VdN8PEm0jwbfrytKymcnw/1Cg4qEA010fip2HnS3LjaioUSySCqrIw1drc3P
Ti+lQfh362t4W8wXCA0pJ9aluxpkQJHIz9Fr+oC7EibL3jzMhLlnzElS3gcI
j1mXBTk7nqwdrxrnrK/Y7FHLwejT2/PDWNX442gpKcIxB72TNNPYhmqRXTnI
E55TBcuOV5y8oDwYny6KsK+ugv++JMnpyjzY+FQc96l4j6gpb7OvaoWQ2xbk
MuuP95jSTmKmUgpx3fm+gsOO9yJ/ijDxIGP8QUYl1qfRlXJdikELPUq20a6E
tvGDvyimJcjc/iura04l5sr+6lcZVIIX4TOrAnrX767R1inF2NJxq0DVCpH/
pdhIbfPxyC1HTeL+0tirZTBIuq2fdLschtVeNwyTyjDUMzhPQa0cw39EpuRP
l6FN+CIVHaYhllXnyKg8JnvQWZ6K6KCg8NaXZJBm3Dn+DjmmtFPre8g4l1sa
+ziaIsKPAm1bp/6VlhRsjjWfd8CQgtVCQlBQ8khXa1rwlIl92u6uSYE5886U
jTEFOw2vsCUcyShU9rwZfoOCUpaGQMhIdXONfxlAQW2KIs+nrgw2iQnBtEeC
75xJ69ZllOKhV7acfOL/9pfC/Hyr0VQGBcHbDpxQv1mCVgnpZfnpFEgIVzF2
XdYati6n4LhpRxCSBXHI/VLZQKdgzwxd6wtg35rRJU2lIL29S+nemgKouzz5
ovyGggD9GcDyoLTA4tMcwff0pk/Nc5V8C7tDr1tUQymonIHDJxcDz17pVd+i
QPd4CI8rl4uz22TSY7woMMh+h5d+byBT67gi7CAFkkJCvoFFrff59H0URM2T
Xk0lZYvxM9VIjdU9noUBo4b9YT/IOCjipcxSB/m/vpKx0c+PvaA9Ex0F+1QV
BslgT8VTB2QysJ7bSGJmkbFCyN90mGvrHPR+RYaqUrVc8MY0hEiMNsZ7kFGU
t/n34fupkNlQyEmwJ4v4k4xv3ABnJ73/p39691dWOB+MqTm0Y4tSYSJMVz7Y
FaXaf7amweKAmeqBbL74vA2zPxZ4F/Jx6LYPM8omEznX1OzM3/PF9pNyWVE5
NXyk6/ptMnuWhTX6cVPmtXwxHsudHX7uauRD+1grWWJnLqKM625W1fPF+N7k
tzl4CHTN1C0x9o25+NOdoxZUxxfHp3tLfLx0NR9/88+f8SrJxy9b0rqHyvji
+K4/bRHl/JaPfS/cLUt/LxL7830b2HvrivDjP2XMJdF8MV8I7z1TnJd8lHHG
wt0fFMM+pWeM/ScfLfsbbU32lCCs5lRxwCO+mH8nwqrPtPvx4aaXZx/4Vymu
Hpaaw7gmsJfSo+3lWSbKb76Y3xudiIWw56PNNrFgRRoZkjcljTZa8MX58njE
f4i1i497lpNnCDcK3GY+oMvHP4muxvQJCpqDSWZH1vFhENx3xmLqnchuvjh/
+VuaLC8Oj8F0g6zmVv9yNJMcziZVjaFTiu5c8bQcWqvH2qkVY+L64Z68w/xY
1BiSa8YCebwKUX0bg0FWwWTL90oUz+b7k86OieuZBrlx5ZDZGKoVOoLX0Kv+
xXPdGPTvPXd9frEaKkwVg5OLxsT1NPHxsA756yg+5Jvo9Ajqu7A8vR3F0olN
TSf7aFi6OJO3I21U3D/KZ8cV5caNwjl2qKIs4yOOdv2YPHtmFGFazZNs2xrU
2qk6eZiPQljO9GtxaWlM99apEVDV5+fLudVicvHkpWpiBFZV+oG8N7WiejiC
+UK+MTArzzHaPX0EenMZn3/KYMBwMsRSOnQE/u9DveO069AifGEELsJVh9DT
S3ZI247geNVwTfxIHZYfaZb4bccINPK+JfWXfMK0cPEwrOlvzterh6/OU72S
Np4Ix3rMQixzGZWH7wv0U6VvNeDTnSF9vds8XFbQOVzh1oj5aiEEZy8P/9Kp
EXeLOJoDWjxkhPpr/VbTiJBwNZ0v6jxw7gbIWrIbRXjzcPpceNGh1c142nz4
p3X1w4he0i+QZjindlqkvRrG98BFmgke/0DxR4jU/pvDUE8xCJY62IInQsOG
QXJ1U9ataEG8XoSn8cZh2M6ES7YVew90L/4uMwzGybKBqpVtaPlC/69qCgHJ
RQn3DC624cSeXUtX+RFYJQxYOwqpHk8OKRJQvfTy/gevdry+mRKYPIcAx/h5
+svqduQK8efihrB/dMA22XJ49BkX3R1Gepp/d0CX+ilmry1XhPtnPJPS3rBn
GRdq/idMHjz7jCkhvkOImLjnoiHbiYJNFBufgiHET172vfamU4THEMJ/JfeO
v+uE4zb32sWyQ6ALVyd2SfKtahcOIdA1IEae34lDdVlKI92DUBzO+tjswcQa
pqJ1sccghPCzmIi7Ir+jRWIQDa3tsQ6rWcjqieCzaAOQPtGf+cttlsjOAcRT
sy2saSx8UTjnu2r9AITte5yFtRtD51lP9MOtPvSpmVMXVIQ86Ed33n5Z0pUu
UMO+kZb59mNW7aXfHxZ0gbJlUbbOL/3gCAPYDY5K3rUVbA7yXH9+ekG5G9m3
NJ+tbuRgzsPH3K493TgvzB8OIlrMtVpo3Sha0b69Up0jwqEHgzakhdkf2LC7
FeoQ4dkD/7ji6Q8+bNxTqvonrb9HxNc+5Hs7KXoq9MLCRK3/A60PicJ86sW1
O04u6fF9YGX4r1tb0gt5qbS5div6oDwdvabjWy+c/YqLTWp7MU+YT32wctUw
2XKhF+vpDA2Zi30QmmHai6wtD55o/ehDvWSFgltMD5yF+cTGlgT1vGMKPVB2
eZy0N4yNKcrtFx6fu/GQQk4/Vs8W5U031GoUt8lu5oCcYPDJTL4b5cJ+wIH7
clf58eQuRMY0SdtSOYjavfh5iFkXViqtYgQu6xflOwsuqbYBTVb98OiM391w
lSWOw05Na/+3y1mYbT51Y2dnP+T0w7/HRDFBf2ExX3bTgKgfM7Hge/MzfdcB
aI6HDwaUdeKWsN8MYN/Csj5zs05MxGpJPh4YQGLkwu/SmZ8hdTd5Nk11UHR+
BxQ/BhsP/T6I307pxTgx2sEUEmwQJIvUbn3PNhSE6TrP6RrEYSPHkCWsVmgH
ONxNnBoU9YtWrC022+FnPQSpQvvDC5n/IOtSGM/w/hB8LYy3XhhsBs8xtj9c
kAf/1v9m5P5qYXKHOoTN7H1+kbQm7Bb2P8H+FS8UGi40Yf8TP/XnG7m4Wvfx
p53RDbhc/GCrpQ1XXKeGZ9Lfjotgv+QDN87U41KkN6XkHhenDiVzxm0/YbeS
t2FFLRdXjt97dN6LARON/Lh1bVwRXgycL2gK29TJhdWRxFa7uQxRPeICm2H6
JL8WzrbxsmeXEyJ8aiCTv9P36yYCfduT5r1S/AjmUtJ/zxsTIv9pKAhZzFa6
SGCrzsTZCPkqGHluH/jtEiHytwqZJ92nuAJ9K+352/KR9xBe970J9MgzS4++
e48bCQ68tc8JkX/l0LbhHjWOI3B1+dNr29yoOKVWtXhuGoHnITpWLN93OHhE
hfo1jxDfx64/WhnIoRJYYuL+h4ql4P6cOTitWUWgcI07pU2rFFQX5Wtz6gjx
/b1F/itHp5lAhNHkN87lAqz1fd2nwiJQrdGqdHnRW4R2M8rUegnx/CCRX/4f
Gluwv5GtrnrhDSwT5hFLuIR4HrnIH1FNIwgsbPLdcMw6ExQ7gnV+lABvJKHe
MTUN2lvlDQPHCPE89ERpct9JPoHx2h9mhfYpONvOqJCdIJC2+mbat90JsLL0
uP5wghDPX1OtB5R7BLpPdPn2JeNxqHxIcZz6QUAln+QWOTcS4z9IisqThHje
m31rb4qBQLdeVWPOYb6Alp1X5t5pAmtdKeul8oMgc330gck0IZ4nY8t+tjYT
6KRJvqXL+iCM+vcypgW6RDivotndADKlinUz+v3FdGb8BQP8H6aXfH0=
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67}], 
         LineBox[{68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 
          83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 
          100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 
          113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 
          126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 
          139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 
          152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 
          165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 
          178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 
          191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 
          204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 
          217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 
          230, 231, 232, 233, 234, 235}]},
        RowBox[{
          RowBox[{
            RowBox[{"0.07984536437142165`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.28241089721998275`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.9201546356285784`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"4.2674`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"3.148637313599999`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"4.2674`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"3.148637313599999`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.3312875579307093`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.28241089721998275`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"4.2674`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"3.148637313599999`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"4.2674`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"3.148637313599999`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.23`"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.2145`", "\[VeryThinSpace]"}], "+", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.23`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.7744399999999998`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}]}], "\[Equal]", "0"}]],
       Annotation[#, 0.07984536437142165 (Log[
             HoldForm[$CellContext`tt]] + 1. (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.28241089721998275`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.9201546356285784` (Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 + (4.2674 - 3.148637313599999 
               HoldForm[$CellContext`x]^2)/((-0.25) (-(
                    4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                   4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2])^2 + 
              0.25 ((4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                   4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2])^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) (-(
                    4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                    Rational[1, 2] + (
                    4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2])]]) + 
           0.5 (1 - (4.2674 - 3.148637313599999 
              HoldForm[$CellContext`x]^2)/((-0.25) (-(
                   4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                  4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2])^2 + 
             0.25 ((4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2] + (
                  4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2])^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) ((
                    4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2])]])) + 1.3312875579307093` (Log[
             HoldForm[$CellContext`tt]] + 1. (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.28241089721998275`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) (Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 + (4.2674 - 3.148637313599999 
               HoldForm[$CellContext`x]^2)/((-0.25) (-(
                    4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                   4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2])^2 + 
              0.25 ((4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                   4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2])^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) (-(
                    4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                    Rational[1, 2] + (
                    4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2])]]) + 
           0.5 (1 - (4.2674 - 3.148637313599999 
              HoldForm[$CellContext`x]^2)/((-0.25) (-(
                   4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                  4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2])^2 + 
             0.25 ((4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2] + (
                  4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2])^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) ((
                    4.2145 + (-0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    4.2145 + (0.23 + 
                    1.7744399999999998` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2])]])) == 0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAtKKRgG9erT/wvffee+/1Pz6dycKI
G7M/VeJs7D/j9T8mUksRpAO4P+tzQSJQsvU/4+zDZ9gVwD8c4aBKnI31PzHB
g3mi/sk/bJOGqIVP9D9wXk08KxrNP5i2LxSm7fM/pbwHhjcc0D+PIsOaTnPz
P6GM3pa1OtI/g0SgZMu78j8FNcvHKvTTP+DUqPg3NfI/xWx67sgJ1T+n09xW
lN/xP4N5ov6NUNY/0/aFwrR98T+Hz7ArQO7ZP/M7DPhRZPA/STLnaLfS2j/u
8VU7JifwP5ZpcKoXuN0/70oPdmZ97j82F5KmVJzgP/CJmYLRt+s/Y8kvlvxi
4z9cN09ZLCPpP1CNl24Sg+c/ySOPPPLI4z8xT9S/EcrrP3bzlMUykto/677F
/2wN8D/qNLcV5Xe4P8aSXyz5xfA/AAAAAAAAAACsGqkl
       "]]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, 
    GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGCwAmIQDQEf7GEsv8ykyOen3tsnLF619WzebnvbJOtN56a+
t3dwuPWK+/UJ+/j6jPlfPN/b37o/ZdJf9ov2/Ptl3r97987+YuF0yzVOV+1P
2OyIqXR4Zy93d8u2rsDb9sEcYRn6C9/aX1Pyj6xZed8+4ID3BtboN/aV6tUP
b8U/to9Y7lleXv7aPri3ceuEvKf2XzrenrAKf2XPI8DLtTTvuX3S8aJwuQkv
7HkmJIUeffzSXlCMzY23/rn9nIOnrJapvrZf+33l9Atxz+w7v5xVYdR9Y/9T
gsmy7/ET+x+tJb1/nd7aHwzdNZVd5bH9YYltv4rl3tl/NGQpkjn+0L6zRLlA
cdE7+xeCtyeWrntgr2dwPuPVz3dQ9961L1+uFlWz8r2956k8r/lfbtoryG5J
rnT6YH94zeI3qluu27N2bJSevPCDvftEZ8OsH5ft/f5z8KoGfoSaf9G+9eWO
Q41nP9rHz1W7e/fuWXu//ZuNtnZ/guo/bl/15OA92drP9nuWP39+ivmQfZh7
Sldb3hd7h7yT71S3bLcPY+ffILbyq/2Vix0X1Ws32c87KL8k1fqbvbi8s8Lx
wjn2hTLpzrL7v8Pj7ewZEIDF42h8Dpf4BAB6jsY/
     "], {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29},
         VertexColors->Automatic]}}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
       1.6]}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}},
     VertexColors->CompressedData["
1:eJzt0v0v1AEAx/FLpa0yy3N1LCsPm11iphg+1Fby/DBEosTKPF5F19PWNQ8V
eX6YTOcpj2dIVp5VFna4c57r6Nzx/bpzladul0T+jTY/vP+B9176ITFeYUoU
CsV6u93bLTu22xSZzMCyXsrWmmyDeCutymNaiIm552u/3EbA/OHKsTX7gNQc
Y907ffPI8Az9S9vFQ5xyW1JrxhDsMmtbRj8uYNWxzC0vgIvB6aKp4vUxPA4V
2P2QSqCjImlYiOUh1oZJlfd9BV1yq2lYIEHC6XjL+Aw+Cijn6x3vzyKaFW9z
l7EAnQcXtI06R6HNpK7VPRRDrrZIb6sh0NZZcEMrfAr+FXL7jY/zsPYIzHkm
EoGdu5So1iCAWunGlmkVgRzeW8v0PCFsK6dVww2EEM1dMjQ6R6JQQTNUmhWg
hKGef7FQBHmrq0K3jsQb+8bczZuTsNcRd+0nxHAX3ks145Dg+P1y9w8bxxWT
y+yn63PIjBiP3uwl4WnQUL2sPoZy7e+yED0CqsIX3KIeEnvjpFc49SMYYP9Z
8/pDID85xSW5mgSzbnXZp5+PoWDXjuv3SWiqIfpIConIchbjUSAfmqaS/MNc
ErfeUL8Mx5No8VEYfVfno2TwmGvi9g/a6kSjvRsJ7/fVSQNPhtHsZ/fT2UUC
Y+lLpBwlUZx0teP6IA9aXhZ55rMSjLLPdvR3EojSGXcqCubh2/pRbwdCiuy1
roqDFAILTVHZXHcuaNSGTyasReiahl1bZswj4FQjPc15CIp2uyALaxnksf1J
PYfm4NtIa76tNAg9K+2TmhMyZO599/oAVYQ85YhkKzcOFIJQVqVQhu63Fmkl
6zMoczj5KtW9H82GvlnVETI4cY/X7Fsah8zJp6SW9hmlaRrMAl0ZzCNXNgd+
80GuqCT0snogHbA98TBmEaUFRhMafd3oDaVvZUq6UWz7yYOhL4VDVtCe0XQC
QWdqikPMedhxu+P2f3T7DzBO4PE=
      "]], {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.05, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"T/\\!\\(\\*SubscriptBox[\\(T\\), \\(c\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"B/\\!\\(\\*SubscriptBox[\\(B\\), \\(p\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.05, 1.}, {0, 1.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.788778622798367*^9, 3.7887787522898273`*^9, 3.788783074088862*^9, 
   3.788785301983745*^9, 3.788785403348948*^9, {3.788788247884362*^9, 
   3.7887882817375383`*^9}, 3.788788313471912*^9, {3.788788481738997*^9, 
   3.7887885161152973`*^9}},
 CellLabel->
  "Out[2555]=",ExpressionUUID->"859067ed-5c0b-4e5f-975b-15283edcda57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"2", "-", 
     RowBox[{"Sn", "/", "15"}], "-", 
     RowBox[{"PbTe", " ", "without", " ", "Rashaba"}]}], "*)"}], "Title"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Tc", 
     StyleBox["=",
      FontSize->16], 
     StyleBox["0.36",
      FontSize->16]}], 
    StyleBox[";",
     FontSize->16], 
    RowBox[{"(*", 
     RowBox[{"Tc", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Bp", " ", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
     RowBox[{"1.86", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "5", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", 
     RowBox[{"Tesla", ";", 
      RowBox[{"rescaled", " ", "as", " ", 
       RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
       RowBox[{"B", "/", "Bp"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02065", "/", "Tc"}], ",", " ", 
          RowBox[{"0.918", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02687", "/", "Tc"}], ",", " ", 
          RowBox[{"0.916", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.03377", "/", "Tc"}], ",", " ", 
          RowBox[{"0.908", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.04524", "/", "Tc"}], ",", " ", 
          RowBox[{"0.902", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.05884", "/", "Tc"}], ",", " ", 
          RowBox[{"0.88", "/", "Bp"}], "\:ff0c", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.07311", "/", "Tc"}], ",", " ", 
          RowBox[{"0.85", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.08185", "/", "Tc"}], ",", " ", 
          RowBox[{"0.834", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.09062", "/", "Tc"}], ",", " ", 
          RowBox[{"0.814", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.10254", "/", "Tc"}], ",", " ", 
          RowBox[{"0.784", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.11224", "/", "Tc"}], ",", " ", 
          RowBox[{"0.762", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.11834", "/", "Tc"}], ",", " ", 
          RowBox[{"0.748", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.12552", "/", "Tc"}], ",", " ", 
          RowBox[{"0.732", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.14586", "/", "Tc"}], ",", " ", 
          RowBox[{"0.686", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.15088", "/", "Tc"}], ",", " ", 
          RowBox[{"0.676", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.16717", "/", "Tc"}], ",", " ", 
          RowBox[{"0.638", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.18687", "/", "Tc"}], ",", " ", 
          RowBox[{"0.58", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.2181", "/", "Tc"}], ",", " ", 
          RowBox[{"0.526", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.26451", "/", "Tc"}], ",", " ", 
          RowBox[{"0.414", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.31263", "/", "Tc"}], ",", " ", 
          RowBox[{"0.278", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.36118", "/", "Tc"}], ",", " ", 
          RowBox[{"0.064", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.3774", "/", "Tc"}], ",", " ", "0", ",", "0.02"}], 
         "}"}]}], "}"}]}], ";"}],
    FontSize->16], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "0.65"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     FractionBox[
      RowBox[{"2", "\[Times]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
         SuperscriptBox["lamda12", "2"]}], ")"}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         StyleBox[
          RowBox[{"(", 
           RowBox[{"lamda11", "-", "lamda22"}], ")"}],
          FontSize->16], "2"], "+", 
        RowBox[{"4", "\[Times]", 
         SuperscriptBox["lamda12", "2"]}]}]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "2.04"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
      " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"betaf2", "=", "0"}], ";", 
    RowBox[{"scalef", "=", "2.65"}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
      "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], 
      "-", "factor"}], "*)"}], 
    RowBox[{"(*", 
     RowBox[{"Bp", "=", 
      RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf1", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf1", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf2", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf2", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.02", ",", "1.0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"aa", ",", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Take", "[", 
         RowBox[{"data", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/\!\(\*SubscriptBox[\(T\), \(c\)]\)\>\"", ",", 
        "\"\<B/\!\(\*SubscriptBox[\(B\), \(p\)]\)\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.788768484201891*^9, 3.788768540601759*^9}, 
   3.788768579782875*^9, {3.7887687882395983`*^9, 3.78876881301991*^9}, {
   3.788774099723321*^9, 3.788774120532625*^9}, 3.788774169299088*^9, {
   3.788774201808049*^9, 3.7887743035572453`*^9}, 3.788778685080954*^9, {
   3.788778733018955*^9, 3.7887787336010303`*^9}, {3.788783079251934*^9, 
   3.788783080495213*^9}, {3.788784214730344*^9, 3.788784240175811*^9}, 
   3.788786021710883*^9, {3.7887885433822727`*^9, 3.788788546775106*^9}},
 CellLabel->
  "In[2556]:=",ExpressionUUID->"eab70da9-b90e-4f7d-b8c0-2407266dcdc3"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJw9Vgk4lOv7VuGUIklaJVLZktJJWtz+qaSdlN3JUUqSEBVFUXSiLJWEE5Eo
xjr2bUaDLKcQJtnHWAcfk3VIP+Y/ea5rrrne63u/932e+36e+7ul/7bTuzif
j4+PNfOb/XcVT9Buc3mOl6Rv5yt9f4K12M2gfW8wDgfK6gTK/kQsSa/hm2so
Wg8yQ53Kp8AnwX/azuJfyOjMbpjCIo+rWVusXsP3OrN4/PQUXPtN2wxPhqMn
gsLqVp/CunMjwolVEZj+NRuTkD7+8I+N1m9QkNV/pZQxCVVuRGHzrpPZ7V6T
aFmQ73TlbRS89Dy0iRuTYKbePnqrJQr16bYN6baTkHwubGb/51tEiFVHa5hN
okbssWFwUDQv30nEX9qT5rjtHRLm7zquuGQSvkEmC4POxoA8+3oDB7PViifE
wOApP+oqOGixqFk3WB0L9g9199G3HEhVXZeUzfmASYb4htvnORCyqJXKs4yD
/+zxOhzw6VWekYuMQ6UhJ91HkwN5U7/CEbl4RJ7bct5wKwcB5ozMb69JvHon
kOXfXTn/QwJ2ft8fkNcygRI++nsTdiKuzqaTPgG9zPUPWbpJ6NI0vlsfMQGt
jprXlZ1JGDCxzyHfm4DCvMWvj7umoLtCX196ywTEXUiRj7xToM2tdwKzt5v6
pUDRKsA/VWYCqQNPOqx0yPh5xkAhrmwcfAd3Vbc9SOPxNQ4hetT1/UIZ+DCq
X7nl8Dh8meqr7UYz4BlXf2PD+nHkc1aeKU3P5OU/htOu6mKLOrJA3pDs3182
hgcs3ZmMc3Bi5S+Ue49B2+laoVt7DkLtSG6U22N48cWj+4p6Lr5z+RoD95hf
BXj4o/6zWMvoDI9xqRxBCozX2d7/s2kUxbf3h40JU5DG5WcUYXrCBZF0CgwP
+1rYvB3FXZMlBx3WUZH5vDmWHDCKJD69GOWdhTw+RqHACD+SubsQRU67dQe1
R/Fzt/PB+ZIfsVllntw60VG4cPubhmgrZ/em7BEMy/nnq3nSZvA7SUxmjqDT
KTZy0JfG42MEXDoyixEkE7xFS30Etc4jay53FMP6H49MMZURzKJdOPIJ5kse
XBwqGEbmPjOBryalOJIlFKAXPwzVlz3iJt2l2MjFexg+ShoV55jloGUUa6ls
HcYM+DMM/Ifupa0P1rb9gArH6NavO59hnsY4pJTyAzmr9KXeClby8PsBhdLw
nOWBlaDek1nSsOcHRrn3V6L1+PW4rStn3u+70by7rwr2rNc+7cVs/OV+scu+
pBq0x7mp6++xefP1FaXRxCK2GRv3++1Oq5/4CndrTqjNOTYq3b3319/6igAu
nmxeP9Yg6PGSqWkBNvIqM0ZGyTWISn3TatkzhDv0gRPbzWt5eA3x6qlF8qOW
d/uSh2BCMj/gLV2H6RMqYtVuQ7AJdle6b0nHEW6/DqHa40H8i0A63hq0ivhI
DPHmkY4N9x5ObxUZgqKYgFv24m/Q7nseXTY8iGuKFwQ6F9ZjQLQ2n500iL7Z
9mPVQz7ul6W7wyAk9dqF5T2/o9ewUML8xCAKi8yHj5MbeP1LwGlt+E4fvkbQ
ul4eLawjePPaCPN3f0grUwkszGqKb45sRMr3hYohngTylpuPSd9vgsURdqGw
BAErbjSjKMlHf0H4APzuMF3YC1rgZVwQ9tpgAFpfi6ZE5Vt5ePTDdI0qR/Vg
K3zm1S1oCunn4dmKPc3Gcnk+/XjM56Rod7sV2V7VGmpW/ci8JMBpFGzDjpBt
9lPNfTw829BW3Lta2qEPorSuqKDSNlzTLW3dv7EPFmZGSke9GLz+YMFbLXD5
SV8GQheQaC6XWDw9YMB/2fMr+hdYoKm8jDAIZgAvxZf9bcLCtQo/YvBEO9Qr
D6p5vu/l4d+OZ4mfViQc6AXNv7I5V4QJE5u3QrU9PSB2Zn2uLWGijd68iazc
gwpuMKGyOCQpVL4H2XkxMuuqmTx+eyCuNdRb6tOBu436QaoW3ejl8tWBveda
+Z3ZXWggffm5X7sTI3HbGv8N6oKkbvk+9cFOcMtp6IScI70jlK8LdVqN00Ul
nVjE1asucAwOGmnkduKDoyHrrnIXPHZ3j9gHdKI03GqlZ3oXVh828mwc6gB3
POS6EVF6M2qpeQccc0vdtlh3QzS77PyxFR1IsrwR/KKqG9x2D2Si2dZm6uaq
HnQRq6OJ7UwcnoVDuwdL2b4XXFnt2Gz66I+FtB5QykmVrMPtgHD2n990epHV
EnvGxpOBC9z+6IWo28n0zUYM7FePT5C36YXrWYmuRj0GRpiE91f7XnDh0WGg
e0hJq3sJCw8O6z79cqYNnlw9ZWG7Z+QLKc+ZvpBPy7jzngVXCcq02tFW9FqJ
2LrVsMDHjVYwtZ69N9Dsg9maR9vbrZsRyW2YPpCH2wwqPjdil928Uw2VfQh5
ty3pxqZGjF9alyDzsw8N/w8wPvg3pRgZ96OtPNDenFYPClfQ+hFLPfZ1WxYd
8l4qucsa+6HQe+ekrxYdSg+M428N9vP4qUPBuGKCwtkBuNidjfwnvAYbysQW
y1kMIGnnp6hV+jVQurRS42rKAK/eakTpfEiS/jiALCfLQInPVWjlCvIABJWd
2AGDlVhl73y9eR7Bq68SicqX2f3SBG7ElJRg8D80mTQs99pMIPFxmux45H+w
rit2WXqY4NVTzpsXAtcmTgutXfQJi6/Mf6nrSmCViKpQyI4SLJkQfWrqTvDy
L4aoooyHuDeB9Uk2zhqyxXAsSPrhG07AMsVoo8Snj/jZecSvj0Tw8i/kfQ8I
DIX3OXqLUPH6hMlFwwICw9bRdkbqFLz42hU49JHA3SKnDvUDBQhjPVjVV/U7
vxywv1erutUTOEhXVf9jIhN4KGgr0Po7n3Qk7w29TGISsH9YdcJQMg0nGE+c
uroIvG8Rs/epTgVnoYayD+t3Pik49H1Uc7yfwFGF+Y5FMslY/kSZ84tNQDo1
fmqnBAkZyUp+94d/3x8HoYZ78o9GCNSKX2R3rPyA0t76RAcOgU4Ty/Jr05HQ
KK0PZXJ+nx+JTaYip7ZPEthiG5qrEP8GK8oTJ99PE7jjF2J2ISIQ24tTd2ZN
/94fCJtnNmTqzPpAaPTQ0FgAiuMvsGZ1dwPd1+3K0R0oI/tx10ut/roupbMD
v/3m5W/5Ex9/5sHLgU/ERDMEpGt1h7z/ysfYAZpxJl8ERNQj6B1J+XP+cMV0
d3PrngI4NdluNHoSw+sXClqvmfY/i43B6BONd5/nU+b8nUOQ3vmnCyjg00yY
750eg4NRI/qn+Cm4FWZ5yvpqHJoGggt3nKfM+bfEqrcRR29RkNMRrzm6NxFm
ibmuYRmUOX+mbacc0dFMQQv9ZIjXsWTo7Tm2KXWaAtmcSbLU02TwizlY3BGk
zvkxyaJbJUt2UnFkzTLm1JNUEElqj3UPUXn6SYaJjlX7K2cq1i+xmPKxSse/
mpe71kZS5/yZzZDH+ZZoKsbGQ15NkjIwoaI3KDLznFuedhYYQWpBS6lUPD+m
0y8kkoNbV6diI79Q5/wZJWj132tKqHgWo3DVf3EuRBn3bg4XUPFSSf799J48
PPYZDPuSTwU33cI8/F2V4ZSSTgWpNnbt2Rkegum2NMX3VHwRlNrnalSAL3kN
Nerh1Dk/x9wqV2fylApxReahPdcouLnJ8IDK5Zl6ZsdlPRX7Eq6a3D5OBcW2
k1+EREXHxtx3LjJUOC3HgdhEKjRdzsJYmgru+O4vBDl4WdA5goJ2OmWt/OqP
aNI1Lcl5RAGXHtOP0NXOE1Z2ooB5VWdLzZOPWEOr/8vsIgW3O/UYE/toc/3w
2+89r167fZJcAJH4+LuOQTP+7l7VhLNfAQwcDS1rtIvwpCpQVyMlH6+4UYRD
t247UpTy4Stgbmyzqhiv/nGRMXTMgxxuMCn6xcinGZHX8ufN+UOK6qDCmnO5
2H1BfvBR28yanrdvcEUu/s/T65vs7pK5+a+bpZNeAqlT2a57F2cjYAFJVcVw
Rqdu6rv792ZiQ3wjeTL+08x38MMCF/7MOX95ReXG1pgDGWgYlHPVkSyd0wvJ
OD9ayvtS5LoKFrzYkgZuueJl8A+I9gl7lYoRY49MB8eyOb3oW2n0j+aXMozK
1Py5PTkJO7jzVI7caMEIQosEW1/Zi7KW5XN64W9xXLAnoRw+7ftIta4xOOqg
dqQurxxq9aVJLeR3UHv7veW6QMWcXmTG3x3qXl0B/9pDY73uEeB+zXQrIHWc
JbJnwwsE7D074mxWgfwVuyIiBJ5BREq4qeR8xZx++KWNXZKxrIBOAb/1SpUA
iPwbVq50twKntYMkrNZbYfObN1XX7/3ez9D4H2fjhV8=
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
          69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
          86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
          102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 
          115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 
          128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 
          141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 
          154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 
          167}], LineBox[{168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 
          178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 
          191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 
          204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 
          217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 
          230, 231, 232, 233, 234, 235}]},
        RowBox[{
          RowBox[{
            RowBox[{"0.07984536437142165`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.28241089721998275`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.9201546356285784`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"3.1486373135999997`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.1616`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.1486373135999997`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"4.1616`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.1486373135999997`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}], "+", 
            RowBox[{"1.3312875579307093`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.28241089721998275`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"3.1486373135999997`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.1616`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.1486373135999997`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"4.1616`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"3.1486373135999997`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}]}], "\[Equal]",
           "0"}]],
       Annotation[#, 0.07984536437142165 (Log[
             HoldForm[$CellContext`tt]] + 1. (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.28241089721998275`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.9201546356285784` (Log[
             HoldForm[$CellContext`tt]] + 
           3.1486373135999997` 
            HoldForm[$CellContext`x]^2 (4.1616 + 
              3.1486373135999997` HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (4.1616 + 
                   3.1486373135999997` HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.3312875579307093` (Log[
             HoldForm[$CellContext`tt]] + 1. (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.28241089721998275`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) (Log[
             HoldForm[$CellContext`tt]] + 
           3.1486373135999997` 
            HoldForm[$CellContext`x]^2 (4.1616 + 
              3.1486373135999997` HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (4.1616 + 
                   3.1486373135999997` HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) == 0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwBUQGu/iFib1JlAgAAABQAAAACAAAAtKKRgG9erT/wvffee+/1Pz6dycKI
G7M/VeJs7D/j9T8mUksRpAO4P+tzQSJQsvU/4+zDZ9gVwD8c4aBKnI31PzHB
g3mi/sk/bJOGqIVP9D9wXk08KxrNP5i2LxSm7fM/pbwHhjcc0D+PIsOaTnPz
P6GM3pa1OtI/g0SgZMu78j8FNcvHKvTTP+DUqPg3NfI/xWx67sgJ1T+n09xW
lN/xP4N5ov6NUNY/0/aFwrR98T+Hz7ArQO7ZP/M7DPhRZPA/STLnaLfS2j/u
8VU7JifwP5ZpcKoXuN0/70oPdmZ97j82F5KmVJzgP/CJmYLRt+s/Y8kvlvxi
4z9cN09ZLCPpP1CNl24Sg+c/ySOPPPLI4z8xT9S/EcrrP3bzlMUykto/677F
/2wN8D/qNLcV5Xe4P8aSXyz5xfA/AAAAAAAAAACsGqkl
       "]]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.02, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"T/\\!\\(\\*SubscriptBox[\\(T\\), \\(c\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"B/\\!\\(\\*SubscriptBox[\\(B\\), \\(p\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.02, 1.}, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.78876400851162*^9, 3.7887685814518967`*^9, 3.7887688156145563`*^9, 
   3.788769542203846*^9, {3.788774279976891*^9, 3.788774304270409*^9}, 
   3.7887786879303083`*^9, 3.788778737639955*^9, 3.788783081368355*^9, 
   3.7887842689862547`*^9, 3.788788547954441*^9},
 CellLabel->
  "Out[2568]=",ExpressionUUID->"9bdd19a3-5d6e-4ed9-abe7-a4255a36fcce"]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,ExpressionUUID->"debfc57f-3391-49a0-a661-65f49b6abbec"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"3", "-", 
      RowBox[{"Sn", "/", "6"}], "-", "PbTe"}], ",", " ", 
     RowBox[{"with", " ", "Rashba"}]}], "*)"}], "Title"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    StyleBox[
     RowBox[{"Tc", "=", "0.45"}],
     FontSize->16], 
    StyleBox[";",
     FontSize->16], 
    RowBox[{"(*", 
     RowBox[{"Tc", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], "*)"}], "\n", 
    RowBox[{"Bp", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
     RowBox[{"1.86", "*", "Tc"}]}], "*)"}], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{"(*", 
    RowBox[{"parallel", " ", "field"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FFLOS", "=", "4.14"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{"largest", " ", "Hc2", " ", "for", " ", "FFLO", " ", "state", " ", 
     RowBox[{"Unit", ":", "Tesla"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataFFLO", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", " ", 
         RowBox[{"0", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.987037037", ",", " ", 
         RowBox[{"0.124145786", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.966666667", ",", " ", 
         RowBox[{"0.211845103", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.925925926", ",", 
         RowBox[{"0.315489749", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.886111111", ",", 
         RowBox[{"0.386104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.858333333", ",", " ", 
         RowBox[{"0.427107062", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.823148148", ",", " ", 
         RowBox[{"0.466970387", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.767592593", ",", " ", 
         RowBox[{"0.51594533", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.734259259", ",", " ", 
         RowBox[{"0.541002278", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.699074074", ",", " ", 
         RowBox[{"0.561503417", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.652777778", ",", " ", 
         RowBox[{"0.583143508", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.598148148", ",", " ", 
         RowBox[{"0.60022779", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.555555556", ",", " ", 
         RowBox[{"0.61047836", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.521296296", ",", " ", 
         RowBox[{"0.617312073", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.462962963", ",", " ", 
         RowBox[{"0.630979499", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.405555556", ",", " ", 
         RowBox[{"0.648063781", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.37037037", ",", " ", 
         RowBox[{"0.662870159", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.312037037", ",", " ", 
         RowBox[{"0.690205011", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.277777778", ",", " ", 
         RowBox[{"0.709567198", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.233333333", ",", " ", 
         RowBox[{"0.739179954", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.185185185", ",", " ", 
         RowBox[{"0.776765376", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.140740741", ",", " ", 
         RowBox[{"0.814350797", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.092592593", ",", " ", 
         RowBox[{"0.86332574", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.072222222", ",", " ", 
         RowBox[{"0.886104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.027777778", ",", " ", 
         RowBox[{"0.946469248", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", 
         RowBox[{"1", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "5", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", 
     RowBox[{"Tesla", ";", 
      RowBox[{"rescaled", " ", "as", " ", 
       RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
       RowBox[{"B", "/", "Bp"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02062", "/", "Tc"}], ",", 
          RowBox[{"3.68", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.03369", "/", "Tc"}], ",", 
          RowBox[{"3.64", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.04999", "/", "Tc"}], ",", 
          RowBox[{"3.56", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.06918", "/", "Tc"}], ",", 
          RowBox[{"3.46", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.08424", "/", "Tc"}], ",", 
          RowBox[{"3.36", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.09923", "/", "Tc"}], ",", 
          RowBox[{"3.26", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.14882", "/", "Tc"}], ",", 
          RowBox[{"2.9", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.17781", "/", "Tc"}], ",", 
          RowBox[{"2.68", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.23926", "/", "Tc"}], ",", 
          RowBox[{"2.28", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.28013", "/", "Tc"}], ",", 
          RowBox[{"1.98", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.42711", "/", "Tc"}], ",", 
          RowBox[{"0.52", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.4493", "/", "Tc"}], ",", "0", ",", "0.02"}], "}"}]}], 
       "\[IndentingNewLine]", "}"}]}], ";"}],
    FontSize->16], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.4"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "\[Times]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
          SuperscriptBox["lamda12", "2"]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "4.59"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
      " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"betaf2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"scalef", "=", "1.2"}], ";", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
      "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], 
      "-", "factor"}], "*)"}], 
    RowBox[{"(*", 
     RowBox[{"Bp", "=", 
      RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"arf", "=", "0.25"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "Rashba", " ", "SOC", " ", "for", " ", "the", " ", "major", " ", 
      "band"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"roupf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
           SuperscriptBox["arf", "2"], "+", 
           SuperscriptBox["betaf1", "2"]}], ")"}]}], "+", 
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
           SuperscriptBox["arf", "2"], "+", 
           SuperscriptBox["betaf1", "2"]}], ")"}]}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"roumf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
           SuperscriptBox["arf", "2"], "+", 
           SuperscriptBox["betaf1", "2"]}], ")"}]}], "-", 
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
           SuperscriptBox["arf", "2"], "+", 
           SuperscriptBox["betaf1", "2"]}], ")"}]}]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "\[Times]", 
             SuperscriptBox["arf", "2"]}], "+", 
            SuperscriptBox["betaf1", "2"], "-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "*", "Bp"}], ")"}], "*", "scalef"}], ")"}], 
             "2"]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"roupf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"], "-", 
            SuperscriptBox[
             RowBox[{"roumf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"]}], ")"}]}]}], 
        ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roupf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "\[Times]", 
             SuperscriptBox["arf", "2"]}], "+", 
            SuperscriptBox["betaf1", "2"], "-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "*", "Bp"}], ")"}], "*", "scalef"}], ")"}], 
             "2"]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"roupf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"], "-", 
            SuperscriptBox[
             RowBox[{"roumf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"]}], ")"}]}]}], 
        ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roumf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf2", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Sqrt]", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["betaf2", "2"], "+", 
                  RowBox[{
                   SuperscriptBox["scalef", "2"], "\[Times]", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}], ")"}]}], ")"}],
               "/", 
              RowBox[{"(", 
               RowBox[{"2", " ", "\[Pi]", " ", "tt"}], ")"}]}], ")"}]}]}], 
          "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.05", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"aa", ",", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Take", "[", 
         RowBox[{"data", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{"dataFFLO", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"Length", "[", "dataFFLO", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/\!\(\*SubscriptBox[\(T\), \(c\)]\)\>\"", ",", 
        "\"\<B/\!\(\*SubscriptBox[\(B\), \(p\)]\)\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.741351284690357*^9, 3.7413512858877172`*^9}, {
   3.741351396894229*^9, 3.741351410064826*^9}, {3.74135189789499*^9, 
   3.74135204025314*^9}, {3.741354427144142*^9, 3.7413544279582453`*^9}, {
   3.74287708215375*^9, 3.742877118342558*^9}, {3.742877219774575*^9, 
   3.742877219947274*^9}, {3.7428778401159277`*^9, 3.7428780041074743`*^9}, {
   3.742879458992814*^9, 3.7428796380983543`*^9}, {3.75711553633117*^9, 
   3.7571156054603043`*^9}, {3.7571239814910555`*^9, 3.757123984887931*^9}, {
   3.774268341878402*^9, 3.7742683941505213`*^9}, {3.7747590407896833`*^9, 
   3.774759041274001*^9}, {3.7747590826055317`*^9, 3.7747591118926926`*^9}, {
   3.774759160365999*^9, 3.7747592219732113`*^9}, {3.78876314425569*^9, 
   3.788763174377841*^9}, {3.7887692643226*^9, 3.788769336211473*^9}, {
   3.788774099793705*^9, 3.788774099833252*^9}, {3.7887743776811666`*^9, 
   3.7887743912482452`*^9}, {3.78877442265384*^9, 3.788774452368505*^9}, {
   3.78877449549522*^9, 3.7887745298868303`*^9}, {3.788774596860114*^9, 
   3.788774629626182*^9}, {3.788778710294013*^9, 3.788778715728066*^9}, {
   3.7887830969593287`*^9, 3.788783097943268*^9}, {3.788784276216268*^9, 
   3.78878429307876*^9}, 3.7887860288216753`*^9, {3.788788931518751*^9, 
   3.788788932153823*^9}},
 CellLabel->
  "In[2703]:=",ExpressionUUID->"c707d823-e122-4a65-b67d-36632469cb21"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJw9Vgk0FFwYHZKtLNMqyRJpF0qFuM+SQiGlQlFERYuSqPxtlCja0x4VKkpS
kpBkX7KvsyZL1rGUCuUf04x33jlz3rw3b9733e+796q47Ld1E6ZQKEpCFMrI
5+1bI+Mp1uaKTDh7jYbZyztknIRi4ZGc+/5mFA1eg16puXkv0TYYNXxqGh0W
V9TMr6gl4M8OnS0uanTMqF6iFuOVgL0N/okLNegw3VYXtJqTiJFT5lfo8NHq
+NO+5g3ubvMLflFKR84m/+xN/m/gwKlXZTHpKFMy7liR9gbvrh4LjWuhI1Dv
SYDek7cY3Cya+Zcw0Eu/K3ND8R12OCgeUj3FgPGMSqMZle9w3ZqiNy2agSTJ
6VP881Ngqtqgr1bFAIU3UmFkqPWKLcZESNaiE7N/pCLl444ravOZSG+YPzLx
TkpXeqIbE3MC7K5HZ35A0NGe5JNPBfsZuJFwYGZTKhP10+JmSHtkYPHuZkuF
AiYUR/7e6CNCJ7U+r5FmYYH+Xtpv60ycFPu5eLE9C/9ljwSYiWCzkvRwBxbG
vEqa9copE7bHLX/858jCxK25xuzoTNCS9nInC0du2lKuOn5CuWhpkPc9Fui8
7z/h+1h3m1mPWYj33eae5pAF1bnTtXfUsfBn0re7UW+zkH44IDSon4V/+GUj
ynvQQY7KRlNEV2R3QzaYOks8HaeycSp6eI2ecw6qvdf2nFNm43dI/K+Q+Bys
zfF5cGAeGznRmY6rxudC91pMLluTjTXVlxtl3HJBdSv/maLDxuYRuLJz4fI5
92W8ARtetYWXWFp5UF71uMtvJRvC6eZhnnvzkHLhcPPtVWy8HXk+LQ8J8vuy
02zY6LMLNKWtz8ceHedIGzs2PEX1A3388vFuvHJJH3c9xblnsnNPPo5MsLrx
YCsbTjJ7LkecK8At1YCfF7hrHxsx7iyEtHmsgbE7937fwx60y4XodM48qr6X
DR4cM4oQ9LWaftWDjadOrE6HF0U4NZ3MjnFjYzFvFKN7i6PGCe7+LZNVeSVp
xdg7bWasAff3vHI2/wyvSzdq27nnj2t9oF388hnK5dsUx25hY+R1k51LoLls
7sd07rr3lpLVFnoJHh+bYJbgyMZItQbolYJZ7OBQb8VGopSaac/lUoRMO2dz
wlCQv1LIzS5vVlzBht7ZgWkV/aXQ3b7V9NVyNsR4AZZBT2EowUONjWYNy8PB
78tQYRGwNk+SDV450Mrg6xe54rYYG9uzy0ILf5XB/MC9ZaoibLjzRjkkjCLf
yxay4PZ4ON2vqxx6v92+/fZn8fNbjjXhygkK3PWv52sTevvKUf6xxc/sGAva
39K94sQrRuuRV77+FdjVMTdpswoLmzcsvFTVVgFZ2znvy2qYOMTDoxKu41Zs
c0thYsBe7UCAViXGf62UvHeRye/7Sqxqt7D8YcbERsb9u4eqKnFpTbir5ngm
5J0vfT1RVwmWp4KXnASTj18VtmufPPEwh8HNO71Ox7oK2+K0zmrfYsBwyqrz
7SersNW9QW3BdgZ46X5ShTnjGn1FdBmQV3+lM+1TFe5NvF/8WokBtcG6Fn/N
ashEV9hejKBDm4d/NeYMJGfG36NjnR2ldpJB9Sg/lSYuHr86uhoWdwLOXJhE
xz96qMadnQd0dbpoONh1+LtBWzU2MbIr7Z7R+PVSA6qW383jGjS8fMje8vF0
DYaZPlGTmuvBC6eyBne09xw55FSPvstvD5oY1GIfL8F1kFkTGJa5sRbK5rZ3
JM7XoZtXX7WIpQTIKR6tQ7hu1a1nXrXIV9L4uN6hDpJO5j0P0muxNpGImZbX
IkK6jTtrcWIg9kCBXy3O+by5ukGtDss++uirSNcimtW/e45FHfLuitnLptWA
B5dPHfYm3Dr2yrUGPcv3W5dw3/GvT6sR8Mp/k2JbHb6neK412VWNYd6og0LU
xIfnFlQjrHmwT9+oHm/TfHWnBlbhxa8RAqmH/X75EPfySiTM9NBnRNej6HhC
eTEX9xuDBgsp9Ho+D1fCiddANOToX3X7ubYCU09dKkm1pyHLc/Jrl+By8MKJ
oMHmSLb7/utl6H4oZvTlEw08eNTKcGhC41A/hY7UdvHhWONSpPEAoqOgu/9c
4eQSuNcNhJYco/PxLMJCzcnNibfpCDL03tWxuxB7eHmnoyOtQf/T0gLctzNW
zZBk8OPPQS1Sbr9QZcDlZnSW3P1sKPAKkoEuRqRmXtMnyL8IGmjwYfDf8xFy
D1p2s64zkBf12SU3Kw1CIqlLFyYy4PtV1JTZn4xBYQnDwg+C+5NQxBsMqGub
X3jmnghdnxxRxyYGOjIncjY3PUPrwNsLWh2C89EwerxHw76HARv13NILtRE4
MMZpzZ+f3PuVAy037ruAjOytjj8GBOf7DQX67WaVJbfVlkp8f47LuGUXBy2t
yCvLXKlkKq//n2PL0FJxjb1Usr7E7qsn5yUy35+RijxGJQI93/S9IFf1PyrR
XXJyT6lJAq7JzTLex123rAlvEDd+9Q/Pk1QizuOrRDgrWk5IPU0l5irztPuH
X4/uL/+6POOg9xtY332XbnqCSgR672hgZbSEu/5V3tpmGfwGv63dLDjHqUSg
9wfuPysRPkQlGsYJ6jfLk5E8STyo3INKBHpvrHXp1CUXKglPt805vev9P7y5
8Qqfp+3W/vweV3foPtG0ohKB/sf0FzjOWEMly5y7HX+/SoVf9w3TyyZUItB/
SwMhkSQtKmFL2aetDEtHQ9vr608XUMn5TfonMesDH2/B+QwY5ncd0p1EJX5d
8k/zr2fgQb/EYTNxKhH4gRezNbzWf5cl7qXXF3LqPmL+8tKxcxtkSSIjM3bJ
w8x/vJEvSwT6XqhdnnQzXpb4F9BvLrXKQvKUeQcfXZEln2M8LLrcsvk+QJYI
9L399lmzIndZskc4q3t9Ug5c5UPiZxjJEoE+29f7y7dPlyUlIoHicVJ5mDUS
wARZcij2uVPq1HxI7ro5cZAuQwR6e2VniMqxCBly+JRrCe1FAf//ZMjr2ewt
Tb6F6Lu45PW6ZTJkVF9TqWd1JWRIi8edeN91xXw+kybB9xTzdtUVY8yiIHP5
K9JkypH3M6T+lPD7X5qonZx7vlGxFLZ69/oqOqWIQC+Df2T8t44pRVLnFy1S
0StDfIjr38pNUkT3TRGVsr4M+8dZfC21kCICfftWa3GkLWU82U7Z+auMyxsq
NtbRN56OJ9vS7hiefFf+L94r44l6h8bB5MwKHD8+pyBFYjwR6NFll9SEvPvj
yLawS/oJfyrh53+uTN9zHFFu1/wWeqmK72vHkZkaP48+16uGpajbT5nPkkSg
B2LzhFRYIZKkuP/rkxtHaqDqs3H3HG1JUpo+t8rAX8DvEsRv2EvENqUWEnNP
h3qHSxABXz9kP5ndeEKCZE/9MM7tVx0/PxLk6PaVyp+G6rAoauFL5h9x8uHd
6mCdSVw+PXPV8XWvOBHw5wuPVUJL/MSJn4m6bAehYZ629iJPN3ESEeboFHdS
oEviZOK4YG+rs3QYv//blF0sRgR89uHBHqlYbzHy2MznXCaXj4o/hMRVLhUj
L11pTnNvMfl8Ikre7ja+MXsSC2Mj2IOnIkRJPd8XBDy8neZ/SJQwmh4PLdJg
w1VTeUOKpCgZrPRoGXjOhkTuvTWmN8aSf3zHRmpE+OCko2OJt4mJXBiNza+v
scTh2svNTYe/YOvBV4dKWCKEl96GLzC13K9acUSEnHkkEmUwvQG+JRkNGy1E
iHFE4l0/rwZ+vkRImebCtaEfGlCjKdNb/noM4dnZXw1gs3ull/mPIUbCB3dl
uX7FJ5WcRA2lMSS8bcGTb3+/8vVBmKSEbd1RIdaIh/Zhz+yChUkrD6BG7IqY
Gr3gtDBZ2icUs21pI1aOPTdmaKsw6Q68ptv7rBEvhawek14hspqX6CZU5oqG
6foLkXHei1SxtgkxhyV3TXUQIjqtcJ53ronPH0KEJ5fxTYiVdi2N+kMhhtfi
59R3NaFe44a8yEcKieH1QzN+d27JszxKIUcl1xe7rm7m54tCXEr13j2+2AyD
y5MDmeoU0ropdWysaAt/fxhJZ4Xbjy5qgVxQdU7XlGGI8vi5Ba614io1RX9R
brjCWetzC8IeWFvPZ/xB7GUdN0+jb5AxUba53TcEN15/fQP14QkRh5ghuNhd
EF7i+Q3Hmrf/6Lg/hEDzD5wfB77x+2sIGx9a9zwa24pbkQoLWu0HkcXj91a4
mNxN/mU9AM3Qs9YK91uhN2SxLFlmAJFxxL46v5XfH78ReMv60bolbbDpZfpe
/fALqrx726AwsL+HUfsTR4vuNLbntoH9bq/p1V0/EZQQWzVOrF2gdxBqibp2
ZnM7kuSMzsRJ9OM0Tz/akXdwueEGrR8wkJdzi21qR1hyYEF85HfckRHe56fe
wa+f76i0DXSh7+vAT2+JVPNFffjCK8AOeH5aYf3YsBdnw9XXh/R1oFL90QSR
hB5ck7Wrnj6rk49nD6x2bIue5t2J8NiXe1bO6gbh6VMnnF4GRNLiOuFz0+Qv
q6MTilmurbcndSLixCOFKEoXv/46cPqzgpryti6YlWT7bUhtRamDykrKji6w
zu+MGbrbCruQ4QndSV38eJth1bD72Ia8LjDjgqvb5jbz/V8Xvu+cmN/S3Yjp
ErNsz47h8ONr5Pr8HQu0ZnAQp7nSjdnbgLFVT35MncuB5PHtdzZx+yi2be2v
gZUcfjxfYHNp+1D/eg4YdraaoYfZfL/IQWCh0jydCwyEyr4tE/Ln4PQhDZ90
Gh2USLrl5+OcUf88zbV5n34gB9UVG/zQS0NA9HmLoAccqCb55RferkW1nEHF
wuecUb/J4/8UDkKjp3fOaKpEkrR9J7fEEKz6d9hIuxKFc6S0rmZwRv3j+NWB
SjGZHFw0OJ674VkFHpRldYoXcyB9OWDX2ZYyXFj87otVGWfUL85UcDV7VMOB
d6mNtkhjCUq0xJzO13EwffPOWaFKJWh7pu0TyOKM+kWxeZ1Kvo0c2Da/zrpj
VYDr82jznVs4kDNU72v7kgf1dUwxjXbOqF9cPOeEck4nB5df5H9OdsyGeNif
1cm9HIjqiOnPXpGJkhezVpl954z6Rd+jYd2uPzjoLvqPunRlBrqc6wY3DHBQ
pWcyc3LBW3huMN5ZPMAZ9YsbG2K6Zwxy4K5x9W6FVBJyfMMVH/3lQCRrQEnL
KgYq7CsaiX85o36x1bFIMZW7VnA/+fCrVzS0b1Lah4c5UN5d/X0awwxGSkq8
tbzGrO/uNDP8D8Lrrks=
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
          69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
          86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
          102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 
          115, 116, 117, 118, 119, 120, 121, 122, 123, 124}], 
         LineBox[CompressedData["
1:eJwt0tc6FgAAgOFfiDSIRAqPW3IJLqCuIKQlpGjYRIUWSkY0UNpGJaMh0i6j
aEjJe9DBe/4dfClpO1K3BwUCgZPsJJ0MMtlFFrvZw172sZ9sDpBDLnkcJJ9D
HKaAQo5wlGMcp4hiSiiljHIqqKSKE1RT87/tFKeppY56znCWc5znAg000sRF
LtHMZVpopY12rtBBJ1e5xnVu0EU3PdzkFr3c5g53ucd9HvCQPvoZYJBHPOYJ
QzxlmBFGGeMZz3nBS8Z5xQSTvGaKN7zlHe/5wEc+8ZkvTDPDLHN85RvzLPCd
H/zkF4v8Zok//GWZfwRMEcQqggkhlNWEEc4aIljLOtazgUii2Eg0MWwils3E
Ec8WEtjKNhJJIpkV4dploQ==
          "]]},
        RowBox[{
          RowBox[{
            RowBox[{"0.07152330911474081`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.9999999999999999`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.15985522484149972`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.928476690885259`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"21.193099999999998`", "\[VeryThinSpace]"}], "-", 
                    
                    RowBox[{"1.00881936`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"21.193099999999998`", "\[VeryThinSpace]"}], "-", 
                    
                    RowBox[{"1.00881936`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"2.636873802114136`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.9999999999999999`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.15985522484149972`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"21.193099999999998`", "\[VeryThinSpace]"}], "-", 
                    
                    RowBox[{"1.00881936`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"21.193099999999998`", "\[VeryThinSpace]"}], "-", 
                    
                    RowBox[{"1.00881936`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.25`"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.130599999999998`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.25`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.0044`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}]}], "\[Equal]", "0"}]],
       Annotation[#, 0.07152330911474081 (Log[
             HoldForm[$CellContext`tt]] + 
           0.9999999999999999 (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.15985522484149972`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.928476690885259 (Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 + (21.193099999999998` - 1.00881936 
               HoldForm[$CellContext`x]^2)/((-0.25) (-(
                    21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                   21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 + 
              0.25 ((21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                   21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2)) (
             1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) (-(
                    21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                    21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])]]) + 
           0.5 (1 - (21.193099999999998` - 1.00881936 
              HoldForm[$CellContext`x]^2)/((-0.25) (-(
                   21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                  21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 + 
             0.25 ((21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^
                 Rational[1, 2] + (
                  21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2)) (
             1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) ((
                    21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])]])) + 
         2.636873802114136 (Log[
             HoldForm[$CellContext`tt]] + 
           0.9999999999999999 (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.15985522484149972`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) (Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 + (21.193099999999998` - 1.00881936 
               HoldForm[$CellContext`x]^2)/((-0.25) (-(
                    21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                   21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 + 
              0.25 ((21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                   21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2)) (
             1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) (-(
                    21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                    21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])]]) + 
           0.5 (1 - (21.193099999999998` - 1.00881936 
              HoldForm[$CellContext`x]^2)/((-0.25) (-(
                   21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2] + (
                  21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2 + 
             0.25 ((21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^
                 Rational[1, 2] + (
                  21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])^2)) (
             1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) ((
                    21.130599999999998` + (-0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    21.130599999999998` + (0.25 + 
                    1.0044 HoldForm[$CellContext`x])^2)^Rational[1, 2])]])) == 
        0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{0.04582222222222222, 4.396654719235364}, {
       0.07486666666666666, 4.348864994026284}, {0.11108888888888889`, 
       4.253285543608124}, {0.15373333333333336`, 4.133811230585423}, {0.1872,
        4.014336917562724}, {0.22051111111111113`, 3.894862604540023}, {
       0.3307111111111111, 3.464755077658303}, {0.39513333333333334`, 
       3.201911589008363}, {0.5316888888888889, 2.7240143369175622`}, {
       0.6225111111111111, 2.365591397849462}, {0.9491333333333334, 
       0.6212664277180405}, {0.9984444444444445, 0.}}]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, 
    GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQDQEf7GEs2yTrTeemvrc3nRxXHrrssT3/fpn37969
sy9kXr/m/eEP9sEcYRn6C9/a73p5XOXg9x/2AQe8N7BGv7Gfq28Vn9b3zz5i
uWd5eflre+Yp9wt7njE4fOl4e8Iq/JV9xZt0mZgqJoek40XhchNe2E9Ye7Sh
IovFQVCMzY23/rn9n/kX67wzWB3Wfl85/ULcM3uxe5/kf5izOfyUYLLse/zE
PslHJUJPmN3hYOiuqewqj+2j2bKN7Q6wO3w0ZCmSOf7QXn9+QIuIBofDC8Hb
E0vXPbB/tDma3y+XwwHi3rv2nncLVQ9+53DwPJXnNf/LTXvH6TsYLi7hdDi8
ZvEb1S3X7W99uLf2rBWXg/tEZ8OsH5ftlztz39rszw01/6L9hECZJ9eEeRzi
56rdvXv3rP0Blky7C/a8UP3H7RM/VO3u2cPnsGf58+enmA/ZW5V8nL1ERsDB
Ie/kO9Ut2+2PhSic2yQi6HDlYsdF9dpN9mdkxbYJdQg6iMs7KxwvnGMv/PLV
7Qs7hRxg8XBCud/m0wlhh9H4GdzxAwDoEXNr
     "], {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26},
         VertexColors->Automatic]}}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
       1.6]}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}},
     VertexColors->CompressedData["
1:eJzt0u0v1AEAB/A7Mg+bdZUsIzEdxdEtF3qwrzCLhJwt1npgLmUVhmJEJGUN
UyPaOFIeGovSZnPOiZ9zuuTpODquw93PPVhIDzskf0WvvPj8Bx/7mIRwjgGF
QmFtMdyyfIZ3qtJlBh5vNU2W0g7MbRY1hE1/QyYrgppoNYSs9nXCuVGMFHng
YUbJAuqiROxmlyH0mvrzjTCFBX+vc9YraqhJccQSfxRBG7blj6WzYFpe5ebl
k5DX3Q41kk3A3PiSDQ1KMFUDGQ60eRDxOdoiYgpZJN+6x0MF5qG/7pOTCog8
ifNMkxm0oj9ar1Bhh5vVbtlTOUop+v2yowoU59C4F9JIXEt3b1uTTaHrCC82
6vos/rS/L2t4TcLX3M+yq1uKFnVZZAlnDuwkgyDeAIkTNY5ZhSYTyN4wr49J
n8dA5z6zeyISi0Lbu09aJbgsDrW4w1aimlG19quPBJ1Dn7tZP4bgY7yCkHEl
iLrwqGSCBEW5/F1gPAb0xOUWuKpgaG+/mNhLwr/JMSSkchS1B4ReoxIVWqLj
1DnvSNT12jFS1SNgZKe1+VWRiF/ClQe5JOzkKZyP3iMgPgTk688uILm9wlQb
SSJiuub0asMw7jfHpnIeqnEyLLtYRiUR514c6Fk9hDfBxuM3WBo8f9VKrOeo
0D0r/W1OH0IRx9vV0keLyGLDgHi+El+8y8OihwfRqVFEpdB12JMieHHLdx5s
vZm8x+0z9jZ25hVKdCDqabt8Hs2iVJHwU8r9BG7tg/KLCh1WrYMyrMtnYGfL
0Zo5izDKY/k4CXQgVySavuNfEWjDKWDLhHBwoTzbSdWhIzqsVRgwjME26o9Q
o15oxN4HMxO0eFnhNGHRL4AwNmmzRC3A9rftb//z2z+OCH7H
      "]], {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.05, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"T/\\!\\(\\*SubscriptBox[\\(T\\), \\(c\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"B/\\!\\(\\*SubscriptBox[\\(B\\), \\(p\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.05, 1}, {0, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7413516995852957`*^9, {3.741351980487441*^9, 3.74135204187475*^9}, 
   3.74135217599063*^9, 3.741354432321368*^9, {3.7428778944461203`*^9, 
   3.742878004921166*^9}, 3.742878989151484*^9, 3.74287923564193*^9, 
   3.742879281599856*^9, 3.742879316231593*^9, {3.74287950403109*^9, 
   3.74287952069794*^9}, {3.742879555860282*^9, 3.7428795985472383`*^9}, {
   3.742879631585528*^9, 3.742879639523917*^9}, {3.7571155615846806`*^9, 
   3.757115606439685*^9}, 3.7571239973974752`*^9, {3.7742683783367624`*^9, 
   3.7742683957737045`*^9}, 3.774759043337655*^9, {3.7747590855523586`*^9, 
   3.7747591128565845`*^9}, {3.774759161252674*^9, 3.7747592232747583`*^9}, {
   3.7887631763334*^9, 3.788763193892671*^9}, 3.788769343566873*^9, 
   3.7887695799236193`*^9, 3.788774541177554*^9, {3.788774598224576*^9, 
   3.7887746312653522`*^9}, 3.788778721396405*^9, 3.788783099061516*^9, 
   3.78878429527531*^9, 3.788788933353046*^9},
 CellLabel->
  "Out[2720]=",ExpressionUUID->"25cc9b7c-2bea-4e2a-824f-09d2e42ae1ed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"3", "-", 
      RowBox[{"Sn", "/", "6"}], "-", "PbTe"}], ",", " ", 
     RowBox[{"without", " ", "Rashba"}]}], "*)"}], "Title"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    StyleBox[
     RowBox[{"Tc", "=", "0.45"}],
     FontSize->16], 
    StyleBox[";",
     FontSize->16], 
    RowBox[{"(*", 
     RowBox[{"Tc", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], "*)"}], "\n", 
    RowBox[{"Bp", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
     RowBox[{"1.86", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "5", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", 
     RowBox[{"Tesla", ";", 
      RowBox[{"rescaled", " ", "as", " ", 
       RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
       RowBox[{"B", "/", "Bp"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02062", "/", "Tc"}], ",", 
          RowBox[{"3.68", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.03369", "/", "Tc"}], ",", 
          RowBox[{"3.64", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.04999", "/", "Tc"}], ",", 
          RowBox[{"3.56", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.06918", "/", "Tc"}], ",", 
          RowBox[{"3.46", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.08424", "/", "Tc"}], ",", 
          RowBox[{"3.36", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.09923", "/", "Tc"}], ",", 
          RowBox[{"3.26", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.14882", "/", "Tc"}], ",", 
          RowBox[{"2.9", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.17781", "/", "Tc"}], ",", 
          RowBox[{"2.68", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.23926", "/", "Tc"}], ",", 
          RowBox[{"2.28", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.28013", "/", "Tc"}], ",", 
          RowBox[{"1.98", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.42711", "/", "Tc"}], ",", 
          RowBox[{"0.52", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.4493", "/", "Tc"}], ",", "0", ",", "0.02"}], "}"}]}], 
       "\[IndentingNewLine]", "}"}]}], ";"}],
    FontSize->16], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.4"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     FractionBox[
      RowBox[{"2", "\[Times]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
         SuperscriptBox["lamda12", "2"]}], ")"}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         StyleBox[
          RowBox[{"(", 
           RowBox[{"lamda11", "-", "lamda22"}], ")"}],
          FontSize->16], "2"], "+", 
        RowBox[{"4", "\[Times]", 
         SuperscriptBox["lamda12", "2"]}]}]]]}], ";"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f1", "=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "*", "Bp"}], ")"}], "2"], 
        RowBox[{
         SuperscriptBox["beta1", "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["beta1", "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f2", "=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "*", "Bp"}], ")"}], "2"], 
        RowBox[{
         SuperscriptBox["beta2", "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["beta2", "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "4.59"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
      " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"betaf2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"scalef", "=", "1.2"}], ";", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
      "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], 
      "-", "factor"}], "*)"}], 
    RowBox[{"(*", 
     RowBox[{"Bp", "=", 
      RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf1", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf1", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf2", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf2", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.05", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"aa", ",", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Take", "[", 
         RowBox[{"data", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/\!\(\*SubscriptBox[\(T\), \(c\)]\)\>\"", ",", 
        "\"\<B/\!\(\*SubscriptBox[\(B\), \(p\)]\)\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.739102910166655*^9, 3.7391029660051317`*^9}, {
   3.7391029986768093`*^9, 3.739103156507205*^9}, {3.7391395200210333`*^9, 
   3.739139532800774*^9}, {3.7391421431060333`*^9, 3.73914215298879*^9}, {
   3.739143105957823*^9, 3.7391431306993217`*^9}, {3.739143213291155*^9, 
   3.739143422345256*^9}, {3.739143459905245*^9, 3.739143670927204*^9}, {
   3.739143789365733*^9, 3.739143875445475*^9}, {3.7391439180918913`*^9, 
   3.739143931818713*^9}, 3.739147454852522*^9, {3.739148957626501*^9, 
   3.7391490525650787`*^9}, {3.74134980531736*^9, 3.7413498157694063`*^9}, {
   3.741349930163395*^9, 3.741349930508356*^9}, {3.7413499720304317`*^9, 
   3.741350038547724*^9}, {3.741350103531775*^9, 3.741350147618744*^9}, {
   3.741350178296937*^9, 3.7413501884744883`*^9}, {3.741351233131658*^9, 
   3.741351255151567*^9}, {3.741352164332878*^9, 3.741352167138958*^9}, {
   3.74135420214268*^9, 3.741354202718383*^9}, {3.7413543328631783`*^9, 
   3.741354337587042*^9}, 3.7413545545045652`*^9, {3.742877046839698*^9, 
   3.7428770680256147`*^9}, {3.742877207288673*^9, 3.74287721096032*^9}, {
   3.742877338747525*^9, 3.742877369152873*^9}, {3.742877414346736*^9, 
   3.742877446746839*^9}, {3.742877545645123*^9, 3.7428775689653587`*^9}, {
   3.742877618498752*^9, 3.742877818814164*^9}, 3.7428789246465178`*^9, 
   3.7428791382262363`*^9, {3.7571150323626733`*^9, 3.757115139437538*^9}, {
   3.7571152302975607`*^9, 3.7571154128334694`*^9}, {3.757115447434895*^9, 
   3.7571154861414294`*^9}, {3.7571236995789022`*^9, 
   3.7571237155462027`*^9}, {3.7571242886845627`*^9, 
   3.7571242925990515`*^9}, {3.7887630701090918`*^9, 
   3.7887630947284813`*^9}, {3.788769171047598*^9, 3.788769236120949*^9}, {
   3.788774099843758*^9, 3.7887740998759117`*^9}, {3.788774651212441*^9, 
   3.7887746706400557`*^9}, {3.788774702015332*^9, 3.788774732161915*^9}, {
   3.788774762458653*^9, 3.788774786585693*^9}, {3.788778777746125*^9, 
   3.78877878202669*^9}, {3.788783104076707*^9, 3.788783107193357*^9}, {
   3.788784306137498*^9, 3.788784313202592*^9}, 3.788786037085993*^9, {
   3.788788963434411*^9, 
   3.788788964300784*^9}},ExpressionUUID->"b2938817-70c5-4c19-abf3-\
13ed7d312ee4"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJw9Vgk4lFsYnmzZylq3TZuhQoq45Jb3KCmVaBGRpKJNodJmu1quSJvSTWVp
s7XcKBEhS7KvgxkzY8YWskwSCumOaTjPeZ55zvz/Of/5vvf93u+dt8dti7MI
hUKRm0ChjP7eDRsdcfia8GDw1S0m1j/fcLVnwlO4lGckGjxh4q/lSzR0C17i
iael1OQZLKwPoZqHUBNgPCHp9TMqC9XqOnZX3RMQmua/eZM2C25/K4dc7nqF
0bfMQ1h4vuB1X/7GJDyalf2AVc5Cno33BxvvJAStHM5S4rAgFb7MIzQ9CU5H
z0vMa2PhglHseaPYZLzaXNmx1ISNtu528/uz30L5gd2qmf5srFKhmajQ3mLe
zce0ldFsXN/4NTmlIBVl/9mLnqhmgyIY76B43XC6iGQ9fNwevF7Q9w691xQ3
UjXrkdGoOTrB3p2da+Bcj1Aq8y4jOxPXZRYyc+LGnr8Ha1/RD/n0erjOjE4T
PfQe7PLECIPCeswe/bxJFjxMFMNl5Tiw9/VRULbKRjJXQvv0Dg58PowGmI2F
7C1eNXYcWHJutd3blQ2zN4ZeKfYcOPnohTGeZIP55gh/cvBv5O54H/scdJva
PX8azgFL8H8OVqZruO95zAHV6+vtF3a5aHS/onmZwUH+Gdu8jORcRK54mlvQ
z8Fv/D7g0KJi9hIFLpSu5FdKNfHX9EvXvf/goqVVzlLdMQ+OfUfwaC4XP4L+
+x70Xx5EchOrAjS40DPZ0e4o+xGHHTWmTtDholQ8VXVo30dURu43q9HnwnYU
rg8fYd6u4laykgvRZyWZAzr5iFzw+v2dNVxQV2c3WR/JR9fcgAPJa7lIHr0+
Mx8rRHZ7VVlxYTn7iGHv1gJ8PfZMzd2ai3bXYt6u0wWI6/l2QWE7F1Mde6Y4
9hTA9qTBrSQH/v2vLigNuVSIcNF9SpH8tafVRP4sgokkM9rWhYskrevavBtF
CCMF3uQIFwI4VIpxri4pI/4QF2v9Nx/c8KIYKuEbQtKcuVgmGCWQ6A67fJv/
3GVBgHlTeglai3Stbfj7BXQ2L4V4rHKiKP/8wWGXp74NpUikbno3cycXo7eb
4liGTt11KrX8tWpdSK4bqwymfl0NhfZcjLL1vFE58nT/3NC7iYuT2yI+tt4o
x15Tp7V3jMfyVw6tCW+vGa7gomwg7iervxx+ZQnriw25mCgIsAIaQa4bL1K5
GLZ2SfVNq4CzbHlwszQXAjowK6AlOTDrzUQuYvROfan+XoGEI5OCjcX48QhG
JWaIhPI2FHGgRjHoONxdiXnnTh9e6cMR5rcSprV3AnZ6c3DxgDd1pLcSS4O0
353z4uCpBOWCslTVOB8F9PWuwuKQdunb8zi4w+kV5XyuQrFfxVlRej1OCPCg
4V/95fKRqfVI8BlZe1KHhh87l1o2XqsX1j0N7PhVtVpr6/FF8s5ml2oaVDdG
hXvJ1mOu3PfgIAYN8jdcrlhJ1Qvxq8be5bZ0Rh4bBttd82FZDdHgP4pdwtiI
87kWyfq7GrUJsc/OOrEhSHdsNeamdUkaL2cjsSdTTjWnGrtqQ2Pa5rARTuN8
OrK0BiEDvuvro1jQFeBfgz6xUu/ucBa0zJpOb1hZM65PDWuka62ia+DBmVic
qszCb3moQeyBUAv3bibU/HXOaX+uQdyE1Lkx8UwhX2rBO/tW4402E5zvyy4W
nKvF5cwnt/CpDoJwaLWIXxyf8WxXHTRF5QP3r6TjqCDBDGSlyM8v2k5Ht0xt
xp+XGfgi4BcdCyKJlv1ZBuwSpRh33OmwOLpAJ8GOgXVm1w1jM+gIuWUT5lZJ
R9Tkz/xJxz6fiseUM3T0a2y8sZPKgIZTsvmGyXSss0kUm7qegXt60Roe6bUQ
wOXJQMS3qSOte2sx47y4dzv/Hr/rtAY7Bx6aqX1moPYPq+L9B2rwSzAYqJhk
X5ShVQP3xXNKF5rUIVsxg+J9oRovvo8KSB3OxKdf+reSBhSp+TdF1yHWu6O6
m4/7CvuDXEVWnVCHadglKCAm1s7y1Vq0qQqOYd/6snYwEV4+VOoTWAlBOFFM
hFat/n43tAJP94Q8685hQgAPtQIlAS92D1FYcDF6Oz1nVTnSBQCx0P8l4NSM
qWUoFulzo3uxhHgWwyTV9ljyXRZoK+ZkKRwqgqsg7yzcNVMXlzYoxHFv48QP
0mxh/Hkov9Kln6DKxqBK+TK9iA+YJSAkG1yTkHUjLTkwUrGY+cmTLbxPFhiX
NjC4oWw4dW4Pa8lNh2VukfvSV2z4ia+yvtufAiupkRvFmWPnv0GxYLCRuXKN
YpfLK8SnljvZt7Chfcy2bX9LPPyUDFp0Osfej8bVsBPHdvSwceCJZZQ/PQr3
pDfZ/BxgI96k1svhaDDmfHSw7xsce7/feP0jzaJuryRhvpWJcbHKJTl+f33X
tkhu8JcSGeu3KdEqrp38NWVJnKx6afLveB4rkS3WpWuDz6VgpoxjVNklJdLB
SbW46pkq5LkS8VjXa+gck4aPJYl2VGUlMtY/DZbJUn1TFYmLjpN28NcMcFK8
/CIfKhLJH0aibiczhXgokkTJpndKv97j4BILsRoTRbLiicgDV70sVP6cLR2j
p0jyT+j+wS7MFuqcAmGYmclRpXLgfFFLpqlQgYz1w8wGHeqZVwrERjOoalt3
Ljp0TV/S9ioQieSTmX8vzxPio0AKN0e6pTblYd597yT3X/JkrH+J9yS6WFTK
k+q+JQ6Rbfm4qfASYeHyZFBq2ZoCSqGw78qTrKNV4lOHC/FWZslfC4zlyVh/
mUS/seextDxJy9VTmK5SgmPKX204WXLkr/u1qZoapcL9csTDLKUpfH0ZLpp0
ul+RkSNj/eEKy/4t4ieT63PO3yrLKsfI1XuFIjsmk5KozqO+dhVC/CYT0TD3
HTea+HWwb+H0rrhJZEzfpalzly20m0TEtg6tmy1dhRWTdr8f+SlLup61tJqV
VEFNkABZcl7kmKmkPg3/HH5vwdsmS8b0+ILSjQ/ls2WJZvFz0/a91RjwfPjA
64UMWdP4uE6HX/e/fZ0M6ZHws957uwZqcQadztIyZEwPZ0vdrpb/Jk08+7ce
n1tci5ihL7c9D0iTlF3Nx9lT6Ci6bC3juUqajOlT3n6LbI9qKdJrapemLM6A
gn5v2cN8KXL2T5snsxYxhHooRcb0RnsoULTaXIqkJolvjyB1qHJ/onJeQ4q8
sR3w/+ffMT2RImN6ok5vyDJ8L0msrvn12PkyEdjTWV59RZLss1bN/CTPEvJX
ktxfwUqTzGBhy0Gr+25fJ5Kx+q4P7g9/8N9EMu15z1zXX2yEmPlaLLKdSEYe
Jb6MluII60uCLM3xzrRcxcHJxIV5nAwJUifskys/XJK+FitB7geu1ru9nIuA
S2+8Di2RIM6yQzTj1VxsHHh72U1dgvyuf76Pef64KfSROKk161LIlW4Q8kWc
DEbb1plcasBdhXCfmH4xIkh3YwOa2v76ph4hRp5Vrr84S7MRG8945Rk6ihH6
izWrxUIbhfkQI9Rp1zZPKW3EbnnP1z0fRYnA3n1vRGvpiZTcSFGyK8BGesSm
SZgPUdLLoklM82jCA5mwZ8lLRcmkLz/ag740QeN6iB3nrQhpFwDYDKVZfhGX
wkVIy8X2+w1KzRDblOilGyZCwux0KJ9mNgvrW4ToWhsOZyY1wyWJVnyKIkLW
CT7UAt8Xi1z9QyaQbZQZGXNsWjBom3Jh6v4J5Lb+3xsKolqE9TqBDE84Pq1p
oAU3VEQ9WospJEZQL5/Q+WOpkdM/FHKVmVLb9u8nNKZOb8zQoRC7AoNHS6a1
CvP3C6ruP+5JG7TiT2OvVzSNX5AQ+KlW9HWvvZzzZQTyFguTZ1S3Ykr8pLP2
vJ+gLly4W1+uDXFXV794d+onnAX11QaZzvo4q6xhVO3RNZ/s0QZDCxRufTEM
9cTUU3S/NmF9DWPZ/ITbndLtyLm5O7d8/xByBfraDqotte2iyyCe9m5RZz9s
x1qLK65GswYhV3VzliatXcj3H9jsb6R80/AzHiXOPZxX+B2qgnM/Y6aO5MFF
nQM4vUdqQVLRZ9wxXdkbeGwANQ533kRM7hjTe3S7GvFY9h2I+Cfy+CnFfpwT
+KEOKOfMj9ti0oe1qwI9b7d1wNy5OdMh7htOZaqntmh2CvnyDZuXMQ/u9uhE
dfDQ5Tb9XjQICNeJOaaS9tQNXxGWben/rK8T+7QS9j540wNyJt+JtbBLiFcP
Xm432sU50YWg3hOHeYu+gAj8The0A8TUtmV0gWZKZCy7uyDV05ulPqsLI111
5dNFu4V86cT9Xy9Zxk7d0OTcC1ie3Q50PahZfLAbR0WODab5tyOtRU32REq3
MN5PCN57On91QTdqmOqba7Q/Cf1PN1gXVSmtw82wDkrdFiPGE8bXDIeT/ut1
5vCQ4KcubdPWCP0zhXOzF/GgpCz+V+3xRgQmJL8qMeMJ4+HXnXxYp+82Hsr8
7GNsz3CFfomHrgoqI/0eGw4LyvYd8uZhq4SWsQyXhcM91w44+PHG/eOjUqkM
uYs8zGiY8uhCOxNr5ono0iN5aA2rPzAngg6toVaZwOe8cb8l6AepPPQFTJtu
94WGdbLODv6ZPGhF9F0J1KPh7VXuJPp73rh/6lfX20/J4eGAh9XP2Gi+f9J9
0q5fwsOixaadju0VYKk+3+9fwRv3S1vfmfXU1fLgnXAH7pwyfA80OvCCwUP+
8rSqo/PL0GT+3D+Gwxv3SwV3dTZdb+YhfXZY03OrQqil96T6tvLzpTrlyhZO
PtRnF3qYdvDG/dLqKcFWtV08NIkdjZnv8AESwz5B+V/5+11PUSqMsiH9qYe7
5Rtv3C8lxHqsOdrHg/P3bTflzN6D08yIsh/kobNpjsPP/GQotjkPVQ7yxv1S
y71g5vwhHnx8wuMfTn6DIPPFMY9HeIiK1Rz+zyIGEo//ufl6hDful7p+RLun
89fOxTs/bPGIxsktf3T8+sUDOWSlNo1tBnJOX7C+3LFvyIVphv8BbG9OEg==

     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
          69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
          86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 
          102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 
          115, 116, 117, 118, 119, 120, 121, 122, 123, 124}], 
         LineBox[CompressedData["
1:eJwt0tciFgAAQOHfDEXP4JU8ggfgCUoLJYm0JCNbRRmRVamMMrLJqGREJCmy
+S5cfLfn6sTGJ8YlBAUCgWzOcZ4kLnCRS1zmCsmkkMpVrpHGddK5QQY3ySSL
Wyft29zhLve4Tw4PyOUheeRTQCGPKKKYEkopo5wKKnnME55SRTXPeE4NtdRR
zwsaaOQlTTTTQittvOI1b2jnLe94TweddNHNBz7SQy999POJAQYZYpgRRhlj
nAk+M8kU08zwha98Y5bvzDHPAov8YIllfrLCKr9Y4zfr/GGDv/xjky3+s80O
u+yxzwGHHBEwRRDBhBBKGOGcIoJIojjNGaKJ4SzHhnNkCQ==
          "]]},
        RowBox[{
          RowBox[{
            RowBox[{"0.07152330911474081`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.9999999999999999`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.15985522484149972`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.928476690885259`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"1.0088193600000002`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.159999999999997`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"1.0088193600000002`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"21.159999999999997`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"1.0088193600000002`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}], "+", 
            RowBox[{"2.636873802114136`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.9999999999999999`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.15985522484149972`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"1.0088193600000002`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"21.159999999999997`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"1.0088193600000002`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"21.159999999999997`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"1.0088193600000002`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}]}], "\[Equal]",
           "0"}]],
       Annotation[#, 0.07152330911474081 (Log[
             HoldForm[$CellContext`tt]] + 
           0.9999999999999999 (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.15985522484149972`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.928476690885259 (Log[
             HoldForm[$CellContext`tt]] + 
           1.0088193600000002` 
            HoldForm[$CellContext`x]^2 (21.159999999999997` + 
              1.0088193600000002` HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (21.159999999999997` + 
                   1.0088193600000002` HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 2.636873802114136 (Log[
             HoldForm[$CellContext`tt]] + 
           0.9999999999999999 (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.15985522484149972`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) (Log[
             HoldForm[$CellContext`tt]] + 
           1.0088193600000002` 
            HoldForm[$CellContext`x]^2 (21.159999999999997` + 
              1.0088193600000002` HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (21.159999999999997` + 
                   1.0088193600000002` HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) == 0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{0.04582222222222222, 4.396654719235364}, {
       0.07486666666666666, 4.348864994026284}, {0.11108888888888889`, 
       4.253285543608124}, {0.15373333333333336`, 4.133811230585423}, {0.1872,
        4.014336917562724}, {0.22051111111111113`, 3.894862604540023}, {
       0.3307111111111111, 3.464755077658303}, {0.39513333333333334`, 
       3.201911589008363}, {0.5316888888888889, 2.7240143369175622`}, {
       0.6225111111111111, 2.365591397849462}, {0.9491333333333334, 
       0.6212664277180405}, {0.9984444444444445, 0.}}]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.05, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"T/\\!\\(\\*SubscriptBox[\\(T\\), \\(c\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"B/\\!\\(\\*SubscriptBox[\\(B\\), \\(p\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.05, 1}, {0, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.757123740355858*^9, 3.7571243088914833`*^9, 
  3.788763099209937*^9, 3.788763136082199*^9, 3.788769250168523*^9, 
  3.7887696098603363`*^9, 3.788774787403211*^9, 3.7887787841795*^9, 
  3.788783108007737*^9, 3.7887843152713823`*^9},
 CellLabel->
  "Out[1999]=",ExpressionUUID->"bafdfb8c-879e-437e-9c5b-e4a200e6dbf9"]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,ExpressionUUID->"71e677f0-d20f-4e1f-8039-7920127b8629"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"3", "-", 
     RowBox[{"Sn", "/", "12"}], "-", "PbTe"}], "*)"}], "Title"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Tc", 
     StyleBox["=",
      FontSize->16], 
     StyleBox["1.03",
      FontSize->16]}], 
    StyleBox[";",
     FontSize->16], 
    RowBox[{"(*", 
     RowBox[{"Tc", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], "*)"}], "\n", 
    RowBox[{"Bp", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
     RowBox[{"1.86", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"parallel", " ", "field"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FFLOS", "=", "4.15"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{"largest", " ", "Hc2", " ", "for", " ", "FFLO", " ", "state", " ", 
     RowBox[{"Unit", ":", "Tesla"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataFFLO", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", " ", 
         RowBox[{"0", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.987037037", ",", " ", 
         RowBox[{"0.124145786", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.966666667", ",", " ", 
         RowBox[{"0.211845103", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.925925926", ",", 
         RowBox[{"0.315489749", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.886111111", ",", 
         RowBox[{"0.386104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.858333333", ",", " ", 
         RowBox[{"0.427107062", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.823148148", ",", " ", 
         RowBox[{"0.466970387", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.767592593", ",", " ", 
         RowBox[{"0.51594533", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.734259259", ",", " ", 
         RowBox[{"0.541002278", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.699074074", ",", " ", 
         RowBox[{"0.561503417", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.652777778", ",", " ", 
         RowBox[{"0.583143508", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.598148148", ",", " ", 
         RowBox[{"0.60022779", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.555555556", ",", " ", 
         RowBox[{"0.61047836", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.521296296", ",", " ", 
         RowBox[{"0.617312073", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.462962963", ",", " ", 
         RowBox[{"0.630979499", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.405555556", ",", " ", 
         RowBox[{"0.648063781", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.37037037", ",", " ", 
         RowBox[{"0.662870159", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.312037037", ",", " ", 
         RowBox[{"0.690205011", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.277777778", ",", " ", 
         RowBox[{"0.709567198", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.233333333", ",", " ", 
         RowBox[{"0.739179954", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.185185185", ",", " ", 
         RowBox[{"0.776765376", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.140740741", ",", " ", 
         RowBox[{"0.814350797", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.092592593", ",", " ", 
         RowBox[{"0.86332574", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.072222222", ",", " ", 
         RowBox[{"0.886104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.027777778", ",", " ", 
         RowBox[{"0.946469248", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", 
         RowBox[{"1", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "5", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", 
     RowBox[{"Tesla", ";", 
      RowBox[{"rescaled", " ", "as", " ", 
       RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
       RowBox[{"B", "/", "Bp"}]}]}]}], "*)"}], "\n", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02139", "/", "Tc"}], ",", 
          RowBox[{"4.06215", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.04973", "/", "Tc"}], ",", 
          RowBox[{"3.92199", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.06812", "/", "Tc"}], ",", 
          RowBox[{"3.81765", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.09024", "/", "Tc"}], ",", 
          RowBox[{"3.68471", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.10833", "/", "Tc"}], ",", 
          RowBox[{"3.5816", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.13071", "/", "Tc"}], ",", 
          RowBox[{"3.47251", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.1698", "/", "Tc"}], ",", 
          RowBox[{"3.265", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.20968", "/", "Tc"}], ",", 
          RowBox[{"3.13708", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.22758", "/", "Tc"}], ",", 
          RowBox[{"3.06637", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.26205", "/", "Tc"}], ",", 
          RowBox[{"2.95523", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.30538", "/", "Tc"}], ",", 
          RowBox[{"2.84694", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.3768", "/", "Tc"}], ",", 
          RowBox[{"2.63262", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.46004", "/", "Tc"}], ",", 
          RowBox[{"2.41901", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.54783", "/", "Tc"}], ",", 
          RowBox[{"2.23484", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.66477", "/", "Tc"}], ",", 
          RowBox[{"1.9002", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.73827", "/", "Tc"}], ",", 
          RowBox[{"1.71347", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.97629", "/", "Tc"}], ",", 
          RowBox[{"0.88019", "/", "Bp"}], ",", "0.02"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1.0895", "/", "Tc"}], ",", "0", ",", "0.02"}], "}"}]}], 
       "\[IndentingNewLine]", "}"}]}], ";"}],
    FontSize->16], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "0.65"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     FractionBox[
      RowBox[{"2", "\[Times]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
         SuperscriptBox["lamda12", "2"]}], ")"}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         StyleBox[
          RowBox[{"(", 
           RowBox[{"lamda11", "-", "lamda22"}], ")"}],
          FontSize->16], "2"], "+", 
        RowBox[{"4", "\[Times]", 
         SuperscriptBox["lamda12", "2"]}]}]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "2.01"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
      " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"betaf2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"scalef", "=", "0.72"}], ";", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
      "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], 
      "-", "factor"}], "*)"}], 
    RowBox[{"(*", 
     RowBox[{"Bp", "=", 
      RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf1", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf1", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf2", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf2", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.05", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "2.5"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"aa", ",", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Take", "[", 
         RowBox[{"data", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{"dataFFLO", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"Length", "[", "dataFFLO", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/\!\(\*SubscriptBox[\(T\), \(c\)]\)\>\"", ",", 
        "\"\<B/\!\(\*SubscriptBox[\(B\), \(p\)]\)\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.739102175399826*^9, 3.739102196393523*^9}, {
   3.739102331187825*^9, 3.7391023454625196`*^9}, {3.739103650457354*^9, 
   3.73910365269709*^9}, {3.739147256523315*^9, 3.739147441257086*^9}, {
   3.739147472494151*^9, 3.7391474729396544`*^9}, {3.73914750866812*^9, 
   3.739147509033792*^9}, {3.739147542638554*^9, 3.7391476807340517`*^9}, 
   3.739147866946693*^9, {3.739147941115942*^9, 3.7391481850060387`*^9}, {
   3.7391482401191587`*^9, 3.739148436180442*^9}, {3.73914850242619*^9, 
   3.739148544738825*^9}, 3.739148624755075*^9, {3.7391486586343718`*^9, 
   3.739148659190963*^9}, {3.7391486909651823`*^9, 3.739148904272581*^9}, 
   3.7413482436301537`*^9, {3.741348555761228*^9, 3.741348583375167*^9}, 
   3.7413486704266*^9, {3.7413487033811293`*^9, 3.7413487470444098`*^9}, {
   3.7413489007803593`*^9, 3.741348966109733*^9}, {3.741349024760106*^9, 
   3.741349101609005*^9}, {3.741349163121254*^9, 3.74134934459652*^9}, {
   3.741349665014824*^9, 3.7413497489166193`*^9}, 3.741350312667904*^9, {
   3.7413503526499434`*^9, 3.7413503600550747`*^9}, 3.741352077078764*^9, 
   3.7413521250328217`*^9, {3.741352449773336*^9, 3.7413524502432528`*^9}, {
   3.741352488226451*^9, 3.7413525495410347`*^9}, 3.741353866327914*^9, 
   3.7413539217015944`*^9, {3.7428762449254637`*^9, 3.7428764249920797`*^9}, {
   3.742876554242976*^9, 3.742876666038617*^9}, {3.742876766670405*^9, 
   3.742877030090322*^9}, {3.742879816427549*^9, 3.742880025896957*^9}, {
   3.7428801073940887`*^9, 3.742880239921596*^9}, {3.742880275960535*^9, 
   3.7428804870971117`*^9}, {3.7428805374762278`*^9, 3.742880537969866*^9}, {
   3.74288056984235*^9, 3.742880589883847*^9}, {3.742880631217258*^9, 
   3.7428808044317513`*^9}, {3.742880927753875*^9, 3.7428811137341833`*^9}, {
   3.742881154961471*^9, 3.7428813345141163`*^9}, {3.742881388773234*^9, 
   3.7428815249260387`*^9}, {3.7428815623375463`*^9, 
   3.7428815662949753`*^9}, {3.742881598472932*^9, 3.742881674591114*^9}, {
   3.742881716033863*^9, 3.742881767090048*^9}, {3.742881932061864*^9, 
   3.7428820048369617`*^9}, {3.742882260336389*^9, 3.742882294460621*^9}, 
   3.7428823707292*^9, {3.742882418422101*^9, 3.742882418723472*^9}, {
   3.74288355939159*^9, 3.7428835598359747`*^9}, 3.742884075790196*^9, 
   3.742884106513248*^9, 3.742884147299919*^9, {3.7428841795849743`*^9, 
   3.742884186880262*^9}, {3.742884234690473*^9, 3.742884297811964*^9}, {
   3.7428849208900223`*^9, 3.7428849696372766`*^9}, {3.742958321224535*^9, 
   3.742958334639358*^9}, {3.742958382379582*^9, 3.742958436980788*^9}, {
   3.7567070104032483`*^9, 3.7567070467992916`*^9}, {3.75670708788931*^9, 
   3.756707105731181*^9}, 3.756722441832169*^9, 3.756727141333909*^9, {
   3.7571157437315407`*^9, 3.7571160133026543`*^9}, {3.7571160593126154`*^9, 
   3.7571160734627748`*^9}, {3.757123111448715*^9, 3.757123126606141*^9}, {
   3.7571231767320967`*^9, 3.7571232112747197`*^9}, {3.757124201640293*^9, 
   3.7571242133908696`*^9}, {3.774267570836341*^9, 3.774267624550478*^9}, {
   3.774756348880012*^9, 3.774756446215698*^9}, 3.7747564857812014`*^9, 
   3.774756520639579*^9, {3.7747565510301027`*^9, 3.7747566246252594`*^9}, {
   3.774758799998424*^9, 3.774758800782663*^9}, {3.77475885948975*^9, 
   3.7747589037996655`*^9}, {3.774758945941662*^9, 3.774758967132251*^9}, {
   3.788762992661724*^9, 3.788763013206628*^9}, {3.7887688791160603`*^9, 
   3.788768966784223*^9}, 3.788769656698784*^9, {3.788774099883175*^9, 
   3.788774099941283*^9}, {3.788774422749977*^9, 3.788774422831032*^9}, {
   3.788774803192684*^9, 3.788774916129242*^9}, {3.7887787949614964`*^9, 
   3.788778798472706*^9}, {3.788783123424273*^9, 3.788783124937607*^9}, {
   3.7887843247437897`*^9, 3.788784342071739*^9}, {3.788785864574079*^9, 
   3.788785882645712*^9}, {3.788788654829063*^9, 3.788788671069556*^9}, {
   3.78878870769532*^9, 3.788788732218959*^9}},
 CellLabel->
  "In[2617]:=",ExpressionUUID->"5cc24e35-df45-442f-9d7a-3499cb7f57a1"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJw9Vgk4VPsbnn9ZSsVtv0QK3St1JUrS8nKVUEnc4qaFbC1aVNYblaUskUvr
LSJlr4ixDg1mjrEkakSWsoVhzBj7Fv8xTX7POc953uf8zvN93+99v/d8q09e
MLWbRSKRGPx7+vnfo+mVAONrLpflWmlwP5eicWh9Mi4k796xQIWOSUejKC/9
FKzboNyulUmHUZiSYZhSKhaR56/Z20jHRa7sAMFMhdtBzU13++nwZvYc16K/
QYbqvs9aSgTmOJuIO5ukwU/jz5OmOwhoRSXvzitIg54b9doJfQLbPyQOR2uS
4VGWbJt+jQBhfpVufpWMnRRj2ZZbBMRGFCSiKGQYFNXk1N4k4Ksd76Mdn4nH
0nULq3IJ7PlHtd+XmgmL0x13XPk46GX3AbOqbGTVKZgU1hD4U46pK8fMxpMV
IfV5fHziZpDIpppsJB+12XGMj0mCRUGlWbOuaB2BBeK1gWoy+QjyvsdWohHI
b1k3fYFUf8WvgkqgcarX9pdd+bi8/tmFiNyf76l41Z0QLhNI4FS72GW3BQXY
RZxiPT9IYOV0eN0CzNGrOlCpQUDtUcSDofAC+N+JbTKYTcCTPl1wIUJKl9XT
cumQvmBFn2AVgtbeZF18nY6GjHP1GeeKkHQ5fDdVno5FpjR7PXMa7mo8uvjx
Cg0DByIYq6NpeDthkh26nwYz3objaqM0YV00/OCXDppfyiPrM0WQykrPdRmk
Q3ZtUoWOZBHOq4daNWsTmDeR89dkeSFGA1+PBL4m0B4xKyhLtxDBd6/f/utB
MQwFvBfgr8A1JeXkYiSGkMX3jlNhMU0XvRg1Zt49zC9UlHkOG5+TYiDcom3L
d2sqMqfTr2fgV2oezXpnPshxxzPPSpVAUnaA0ROTh7Qvi/+dd7gESoIAFChu
MtrQkFwCGYcdimlrc7HsBG/pCV4JEr2oEsPV2Xg2a5emiG4pvEozOp54ZSHt
fyLq+uGlwjgZ2KHnuJxXUoq/KRyTMw/JEMhPvAwjpk8PEt1pEEmNdFbTL0Ps
jqPLvC68wSdHx9c3LpUJ60sV5lGGqWCq04hUChRvVpMy08pges+gZV3fSzwJ
MLcsHS7D/Hvq4ZV28WjfH1aRLFEujB+LjFqVPkepcrxRnr+r2jAWAvrlymHm
v2TzUevnOP18PHOt7c/993Gj4YDzigvlKG+US9q1KhRui0X3xHiUwz5VbfvJ
XC9Ql5ayfG783N++82e/LnZ11X7bTNJxY/yd+Iqf5w+dkHTCZPb8nkNJRahB
29nylSQdxuOYVRRaGnp9qYkiGVNoKEzKyGlMF+6fQrJZQGD1CjKuD0gfqjk2
NdN/v7611fmgNwXrrPKwwclMnBcc7ySCWi7XRjOykMW+KtYYOAldpSNj52Jy
hXqbhBhzt2vLSwru5jnlryv4PtM/qy2vDSVc+Y4e3Z5wGTsq9K1MtwaQviPM
/e1IALUAawTnPoHVCXSFmtuFKO13tjUxmJjR/0eiqcJkchxkL3FKVRkNH6bi
3lMejOOZXf9JI0dC6Evj+Hg+fEumfDGUHS+lS3DGZvSpYuCt+yR/DOvexUye
uFmCi5Hbo32NxvBeB3CpKRPWN4qXrl68pu9lyPbVmhOQPDrDX5O8Kv3081GU
7Z1t6dVSjmNsp3ljzqPQTGY7GN2qAJMUeM1pySim3clHuxIhVRUub56PQKEr
UvmadBUE6RmOINqx4YppSxV0SOu+om8Y9oL1Aa0TKtuisoeR60/ROKz9EaeM
lU0b7IdxrSPphYsXE1afitTdOoeE+mRiqrer92vTEMiGo19THzBB3GnJmvgy
BMahvW+ORDOFehmCIJ34ajQaqnxiuA1h3Jza+Hy8Gk+pYRqXLYdw8+Edh8Sw
T8LzG8IPuj7hYVi6ucOSIeR0z9bNs6lBlyhtOKZuEMSXVxf3R9UKeRmEd9y2
uqz3fFxk72FzdBBRkl38qxbfvZPsPE0HEWEtbiex8zP0SOr6LpqD0BioH92q
Uwdvpae+ss0DOD7d3kvr4edXtazzwQCcLgaUTaXV45LS+OwJhwEccvmwMW2i
QaivAUjTTW/bqTTCibk+/F5vP2QFBDVC647F7qLOfoxTnjhM+DXi896QBuWP
/fivLMfCPOYLDIwCZRs8+lEnyPsrTk0opVzW6ofyyfJ0lmQT2sRr5vwm1g+H
e5cic8ubhOfch7UFs38t5mPjPVef6fJxuWA1oaGb/HQHHye/UyU18vG/8p4f
NfhYjBcgHxHYDPf0+8FmK/sgOM6WZrziMUPXtPEw63D2ZjuDFog6b1xllsiD
Sp9t9vnqFkjYSM0fNOVBYL8jLdg4PJfctp0HzmgdvUS0FSoDEm/fb+ah11X7
+T6FVqFf8SCg16cVLlZbFx5p70X0oOH5wYJWxG0xik152wuWgJA22NLTWeMh
vYhdlGXjsKtNyF8vaPXUwa2ebaAfj75gbdCLgKU5sSWcNux/NX+FzjgXBoI4
31BVv7lXP42LRsuU5fFHvwm/58L+Vq6kJYf/PlBeZN8LDuIEgmtHlFRysZI6
B8MLdjqwYtpR5MSmvIjrQYin6EjV1g5YMyv31b9jQ0xg0B2YXLx08fFkNgqW
BInLmHfARlHEhR7DhrxscJy6TYfQH9gQhK3vwJ7Q6vNOtd1QkWMMJol1wjSf
5338fjccE06bqZl0CvXcDTtBf3WC8FZd+3KqCwntckF70jrxhGXAWnejC5jD
XUn8wRL2PwvGdDv/0KMsSKKjQ9uGBZrAD1k4tsWjaUCJBZ9L4hIrZ3XB2IDs
5rqtE8kbyl8XKXfhjCmlQI7XAUVBnl0oiSwceaLYAYvcscOMZ104a8ixqRHr
QJ6uhOqR7K6ffo5onsbvSTu70ftS4XEM/Ru8BYR2Y59zm/sjZhuIZpKRZ3U3
hhS1fVa4tmFBpV1d3Vy2sB/asPnxOTbZng1q6Oz5NdKtaBYIjo28zrH5WN+C
Uw/OF+bz2Hjam59ilNyMDSobjzko9gj10wwn/+Uafc498LeUTihc3wQdwbzU
A8erKv+MdTfy/6fBNg/7evDf7DrdDPVGBM1V1XSX4Aj7owFkhlJdiz0Hs1Q0
PFhfPyPyt/ftat4c1C03frF8shb3nX6jMgo5wno/oV9a831EJQdaX6cybx36
JPQLDsSsgmSyT1QjYN4fkUaSXGF9TFQkuoWwNnAxcPr2oPbdD8jyT9EIUONi
mfylZVLBH/BMQp5QOMAV1lMFwe/emQuxNEWoHqwAub8ydNUNLgYl55bGLHyH
x/I+7ZF+XGH+5ZB3/TttUQgX1Y7pjfGBZaDfbbOqieFCbZ9q4UYGA5Z6mge7
UrnC/Ikf/p7DhZGPWMlVPzpaWYTyzkIu/nGNOHzkIA3LFpoU/VHMhV+8VFiK
RxHch9ZnKjO5M/OTqLPHNp16LiwsJIw99N5ik68UJayZOzP/vGynNXC+cXHE
dXSO97kcxEsrDKxhcdH1mnLPl5IF/QPVBgFs7sy8o3d95E4Fh4u9FglfXJ3I
OOMpPxnfz0VSq1i6pfIbYFuUzi+D3Jn5ZjOzsEd0iAvKKqtj/qYpsHWvomWP
cUEwE4NvZMdBU2SUpDTOnZlnpropWWf5eGhsTlSkTCzcMzVqcya56N0mqW2j
/wBixxYuKJnkzswz4d92TVbysdXNySMFrvfhuceOPTXF5/O+ReD3Bk088gkW
YIc1JWcc6jXxf2/8ak0=
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59}], 
         LineBox[{60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 
          75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 
          92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 
          107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 
          120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 
          133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 
          146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 
          159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 
          172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 
          185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 
          198, 199, 200}]},
        RowBox[{
          RowBox[{
            RowBox[{"0.07984536437142165`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.21953450878232622`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.9201546356285784`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"1.902678149376`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.040099999999999`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.902678149376`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"4.040099999999999`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.902678149376`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}], "+", 
            RowBox[{"1.3312875579307093`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"1.`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.21953450878232622`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  FractionBox[
                   RowBox[{"1.902678149376`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4.040099999999999`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.902678149376`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    TagBox["tt", HoldForm]}]]}]}], "]"}], "]"}]}], ")"}]}], 
                   RowBox[{
                    RowBox[{"4.040099999999999`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.902678149376`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}]]}], ")"}]}]}], "\[Equal]",
           "0"}]],
       Annotation[#, 0.07984536437142165 (Log[
             HoldForm[$CellContext`tt]] + 1. (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.21953450878232622`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.9201546356285784` (Log[
             HoldForm[$CellContext`tt]] + 
           1.902678149376 
            HoldForm[$CellContext`x]^2 (4.040099999999999 + 
              1.902678149376 HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (4.040099999999999 + 
                   1.902678149376 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.3312875579307093` (Log[
             HoldForm[$CellContext`tt]] + 1. (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.21953450878232622`] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) (Log[
             HoldForm[$CellContext`tt]] + 
           1.902678149376 
            HoldForm[$CellContext`x]^2 (4.040099999999999 + 
              1.902678149376 HoldForm[$CellContext`x]^2)^(-1) (
             1.9635100260214235` + Re[
               PolyGamma[0, 0.5 + Complex[0, 
                   Rational[1, 2]] Pi^(-1) 
                 HoldForm[$CellContext`tt]^(-1) (4.040099999999999 + 
                   1.902678149376 HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) == 0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{0.020766990291262135`, 2.1203413717507043`}, {
       0.04828155339805826, 2.0471813341684935`}, {0.06613592233009709, 
       1.9927184466019414`}, {0.0876116504854369, 1.9233270696314853`}, {
       0.1051747572815534, 1.8695062115043322`}, {0.12690291262135922`, 
       1.8125639419563628`}, {0.16485436893203884`, 1.7042488777534188`}, {
       0.2035728155339806, 1.6374778160559555`}, {0.2209514563106796, 
       1.6005689529178408`}, {0.2544174757281554, 1.5425566343042068`}, {
       0.2964854368932039, 1.4860319448794235`}, {0.36582524271844663`, 
       1.3741622298778577`}, {0.44664077669902913`, 1.2626631172356195`}, {
       0.5318737864077671, 1.166530953126631}, {0.6454077669902912, 
       0.9918571875978701}, {0.7167669902912621, 0.8943887670946862}, {
       0.9478543689320389, 0.4594373107840066}, {1.057766990291262, 0.}}]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, 
    GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQDQEf7GEs2yTrTeemvrd/8mPKS16zi/b8+2Xev3v3
zr6tbObEaXF37YM5wjL0F761N+M6erDl3lP7gAPeG1ij39hXHz5/a+7hV/YR
yz3Ly8tf279eq3DBYvZb+y8db09Yhb+yrxTccd1P/4N90vGicLkJL+xPV7yY
ffPhR3tBMTY33vrn9uc5G5t1DnyyX/t95fQLcc/ss12uOgiXfbb/KcFk2ff4
if2M2KkcomZf7A+G7prKrvLYPk5BcNmqs1/sPxqyFMkcf2i/dzUr6zyNr/Yv
BG9PLF33wN59v6KLQ+pXqHvv2kc9izzUcu+rveepPK/5X27ay628Gi9V9s3+
8JrFb1S3XLc/vK7yReXPb/buE50Ns35ctn/x5+UTpjffoeZftP8ccWn6uek/
7OPnqt29e/esvXWK1MreeT+h+o/b77etZ+F688t+z/Lnz08xH7JXtPaPb7P8
Y++Qd/Kd6pbt9sWL6pUF3/y1v3Kx46J67Sb70DKHb7rb/tmLyzsrHC+cY7/L
dN7Ex2kMDrB4mD7lBkd8CKPDaPwM7vgBALO7lv8=
     "], {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26},
         VertexColors->Automatic]}}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
       1.6]}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}},
     VertexColors->CompressedData["
1:eJzt0u0v1AEAB/DDzMOmrtItO4kJ5XkRerCvMIuEnC231sOZm1iFOcXIc8oa
pky0eao8LSalzeacq7tz6BLOw9Fx3XH3cw8W0sMOyV/RKy8+/8HHLi45mmlI
IpG8dxjtWD3PPlvrMg+fTk07RdKLhe2y1qi5b8j2jjFIsRpFXs+mwLlNBJYs
9LhrxRKa6UO0DpdR8M2COcaYxVKw30XqmhpqQhSzwhEjbMum+pFEAU/Kjfqi
YgLfmu9EGkunscfkqjUZSniohrPsyYsQJOVrywSzyCE4VJ6PCp7H/nrNzMgx
6Cu45Gk6jy4MMvRyFYzdrfZLn8hQSdIflp6QozyfXH85g0Biplf3hnQW/R7s
ePpNBf70vKtqbSIQaBFE6f8gwRt1VWwFcwG0VMMw9jCB042OOaWm08jdsmiJ
y1zEcN8h8/tDBJaFNvced03imijS8i5NiQbXuo1fAwQcmA4Lt1omEH6SXRIx
pYSgOZqeJiBAUq5+55pMALyEghI3FYzs7JZT+ASC2x0jImrFaDoi9BNPqtDJ
SFDnvyXQxLd1TVePwzU3ozuojkDSCq4XFhCwlbGYH/3HIXgfUqy/sIS0nhoz
bSyBmLnGc+utY8jriE9nPlDjTFRuudSAQIJXeahvwyheh5tMJXpr8OxVl2Az
XwWuQvLbwmEUZUx/N0qAFrHlRiFJHCW++FdHMcZG0KeR01kOOhxgcZ/fDlwE
TW8u47l/xsG2vqLSSR14LeR9AQ8VqJQn/5TUf0L9y8LqK3Id1qlhWdTqedja
MLXmzkMQs70DnLg6EGuTmoFTXxFqzSyhSYWwdyE93WugQy8jqksYMoaRboMf
kcZ8aET+R7OTtXhR4zRtOciFMD51u0LNxe633W//89s/pLh+yw==
      "]], {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.05, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"T/\\!\\(\\*SubscriptBox[\\(T\\), \\(c\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"B/\\!\\(\\*SubscriptBox[\\(B\\), \\(p\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.05, 1}, {0, 2.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.739102201595413*^9, 3.739102352928357*^9, {3.739147495353277*^9, 
   3.739147509913422*^9}, {3.7391475449818373`*^9, 3.739147681569981*^9}, 
   3.739147867633212*^9, {3.739147942594255*^9, 3.739148185693674*^9}, {
   3.739148241778658*^9, 3.739148436817648*^9}, {3.739148503370441*^9, 
   3.7391485452945023`*^9}, 3.739148625398244*^9, 3.7391486597169437`*^9, {
   3.739148752977316*^9, 3.739148812082793*^9}, {3.739148870201289*^9, 
   3.739148904710024*^9}, 3.741348250914959*^9, {3.741348705010724*^9, 
   3.741348748578823*^9}, {3.741348902158724*^9, 3.7413489666600246`*^9}, {
   3.741349025666567*^9, 3.7413491021517057`*^9}, {3.7413491640956097`*^9, 
   3.741349219388773*^9}, {3.741349271430457*^9, 3.741349345075966*^9}, 
   3.741349827011025*^9, 3.741350313315688*^9, {3.741350353723687*^9, 
   3.741350360769359*^9}, 3.741352129098035*^9, {3.741352537704945*^9, 
   3.7413525513136663`*^9}, {3.741353898305722*^9, 3.7413539243455763`*^9}, 
   3.7428805077447443`*^9, 3.7428805392394238`*^9, 3.742880591607026*^9, {
   3.742880632095749*^9, 3.742880805026311*^9}, {3.7428809290916967`*^9, 
   3.7428811004842253`*^9}, {3.742881155580855*^9, 3.7428812047991877`*^9}, {
   3.742881244455254*^9, 3.742881335365445*^9}, {3.742881400674334*^9, 
   3.742881423669244*^9}, 3.742881567298167*^9, {3.742881600547694*^9, 
   3.7428816751636953`*^9}, {3.742881716909186*^9, 3.74288176766293*^9}, 
   3.7428818990024757`*^9, {3.742881937003789*^9, 3.7428820056923532`*^9}, {
   3.742882253471252*^9, 3.742882295164809*^9}, 3.742882373855777*^9, 
   3.7428824195267973`*^9, 3.742883516886932*^9, 3.742883561488165*^9, 
   3.742883782218945*^9, 3.742883849345612*^9, 3.7428839410286016`*^9, {
   3.74288406769162*^9, 3.7428840765497627`*^9}, 3.742884107282385*^9, 
   3.7428841494579077`*^9, {3.742884181161195*^9, 3.742884187559393*^9}, {
   3.7428842245706873`*^9, 3.742884298433714*^9}, {3.742884926656464*^9, 
   3.742884976223897*^9}, {3.7429583388062572`*^9, 3.742958361434031*^9}, {
   3.74295841322252*^9, 3.7429584377654533`*^9}, {3.7571159295945077`*^9, 
   3.757116014081614*^9}, {3.7571160602590833`*^9, 3.7571160741319866`*^9}, {
   3.757123156876238*^9, 3.7571231788195124`*^9}, 3.757123212782688*^9, 
   3.7571242146814175`*^9, 3.774267626217092*^9, {3.7747563620704226`*^9, 
   3.7747564470015793`*^9}, 3.774756486382121*^9, 3.774756521395693*^9, {
   3.774756551748225*^9, 3.774756625429392*^9}, 3.774758807830535*^9, {
   3.774758860739524*^9, 3.774758904527295*^9}, {3.774758946688546*^9, 
   3.7747589680993447`*^9}, 3.788763030454008*^9, 3.788769006995336*^9, 
   3.788769154810597*^9, 3.7887696580810623`*^9, {3.788774906623893*^9, 
   3.788774917635985*^9}, 3.788778799418859*^9, 3.788783125608253*^9, 
   3.788784343827739*^9, 3.78878589529438*^9, {3.788788657913664*^9, 
   3.788788672443803*^9}, 3.788788703582424*^9, 3.788788751480126*^9},
 CellLabel->
  "Out[2632]=",ExpressionUUID->"56b2660a-c9b2-4ea8-9b4c-211f4ad78ceb"]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True,ExpressionUUID->"3f05ef6e-14dd-4752-bbc9-7b8e9ce8166f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"5", "-", 
     RowBox[{"Sn", "/", "15"}], "-", "PbTe"}], "*)"}], "Title"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Tc", 
     StyleBox["=",
      FontSize->16], 
     StyleBox["1.19",
      FontSize->16]}], 
    StyleBox[";",
     FontSize->16], 
    RowBox[{"(*", 
     RowBox[{"Tc", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], "*)"}], "\n", 
    RowBox[{"Bp", "=", 
     RowBox[{"1.86", "*", "Tc"}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Pauli", " ", "limit", " ", "Bp"}], "=", 
     RowBox[{"1.86", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"parallel", " ", "field"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FFLOS", "=", "3.88"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{"largest", " ", "Hc2", " ", "for", " ", "FFLO", " ", "state", " ", 
     RowBox[{"Unit", ":", "Tesla"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dataFFLO", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", " ", 
         RowBox[{"0", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.987037037", ",", " ", 
         RowBox[{"0.124145786", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.966666667", ",", " ", 
         RowBox[{"0.211845103", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.925925926", ",", 
         RowBox[{"0.315489749", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.886111111", ",", 
         RowBox[{"0.386104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.858333333", ",", " ", 
         RowBox[{"0.427107062", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.823148148", ",", " ", 
         RowBox[{"0.466970387", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.767592593", ",", " ", 
         RowBox[{"0.51594533", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.734259259", ",", " ", 
         RowBox[{"0.541002278", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.699074074", ",", " ", 
         RowBox[{"0.561503417", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.652777778", ",", " ", 
         RowBox[{"0.583143508", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.598148148", ",", " ", 
         RowBox[{"0.60022779", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.555555556", ",", " ", 
         RowBox[{"0.61047836", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.521296296", ",", " ", 
         RowBox[{"0.617312073", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.462962963", ",", " ", 
         RowBox[{"0.630979499", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.405555556", ",", " ", 
         RowBox[{"0.648063781", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.37037037", ",", " ", 
         RowBox[{"0.662870159", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.312037037", ",", " ", 
         RowBox[{"0.690205011", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.277777778", ",", " ", 
         RowBox[{"0.709567198", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.233333333", ",", " ", 
         RowBox[{"0.739179954", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.185185185", ",", " ", 
         RowBox[{"0.776765376", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.140740741", ",", " ", 
         RowBox[{"0.814350797", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"0.092592593", ",", " ", 
         RowBox[{"0.86332574", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.072222222", ",", " ", 
         RowBox[{"0.886104784", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0.027777778", ",", " ", 
         RowBox[{"0.946469248", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}], ",", "\n", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", 
         RowBox[{"1", "*", 
          RowBox[{"FFLOS", "/", "Bp"}]}]}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "parallel", " ", "Hc2", " ", "at", " ", "5", "%", " ", "resistance", " ", 
      RowBox[{"Unit", ":", "Kelvin"}]}], ",", 
     RowBox[{"Tesla", ";", 
      RowBox[{"rescaled", " ", "as", " ", 
       RowBox[{"T", "/", "Tc"}], " ", "and", " ", 
       RowBox[{"B", "/", "Bp"}]}]}]}], "*)"}], "\[IndentingNewLine]", 
   StyleBox[
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.0198", "/", "Tc"}], ",", 
          RowBox[{"3.86", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.02928", "/", "Tc"}], ",", " ", 
          RowBox[{"3.8", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.03827", "/", "Tc"}], ",", " ", 
          RowBox[{"3.76", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.04749", "/", "Tc"}], ",", " ", 
          RowBox[{"3.7", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.05433", "/", "Tc"}], ",", " ", 
          RowBox[{"3.66", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.06018", "/", "Tc"}], ",", " ", 
          RowBox[{"3.62", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.07026", "/", "Tc"}], ",", " ", 
          RowBox[{"3.56", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.08504", "/", "Tc"}], ",", " ", 
          RowBox[{"3.48", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.10384", "/", "Tc"}], ",", " ", 
          RowBox[{"3.38", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.12101", "/", "Tc"}], ",", " ", 
          RowBox[{"3.32", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.15079", "/", "Tc"}], ",", " ", 
          RowBox[{"3.2", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.18098", "/", "Tc"}], ",", " ", 
          RowBox[{"3.1", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.19741", "/", "Tc"}], ",", " ", 
          RowBox[{"3.02", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.19607", "/", "Tc"}], ",", " ", 
          RowBox[{"3.02", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.2355", "/", "Tc"}], ",", " ", 
          RowBox[{"2.92", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.28594", "/", "Tc"}], ",", " ", 
          RowBox[{"2.78", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.34024", "/", "Tc"}], ",", " ", 
          RowBox[{"2.64", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.41597", "/", "Tc"}], ",", " ", 
          RowBox[{"2.46", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.50784", "/", "Tc"}], ",", " ", 
          RowBox[{"2.26", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.58355", "/", "Tc"}], ",", " ", 
          RowBox[{"2.1", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.66449", "/", "Tc"}], ",", " ", 
          RowBox[{"1.94", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.73972", "/", "Tc"}], ",", " ", 
          RowBox[{"1.78", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.74019", "/", "Tc"}], ",", " ", 
          RowBox[{"1.78", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.79738", "/", "Tc"}], ",", " ", 
          RowBox[{"1.66", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.86854", "/", "Tc"}], ",", " ", 
          RowBox[{"1.52", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"0.98835", "/", "Tc"}], ",", " ", 
          RowBox[{"1.24", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1.08766", "/", "Tc"}], ",", " ", 
          RowBox[{"1", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1.11425", "/", "Tc"}], ",", " ", 
          RowBox[{"0.88", "/", "Bp"}], ",", "0.02"}], "}"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1.219", "/", "Tc"}], ",", " ", "0", ",", "0.02"}], "}"}]}],
        "}"}]}], ";"}],
    FontSize->16], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{"(*", 
    RowBox[{"multiband", " ", "parameters"}], "*)"}], 
   StyleBox["\[IndentingNewLine]",
    FontSize->16], 
   RowBox[{
    RowBox[{"lamda11", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda22", "=", "0.65"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lamda12", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     StyleBox["a1",
      FontSize->16], 
     StyleBox["=",
      FontSize->16], 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["+",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      StyleBox["1",
       FontSize->16], 
      StyleBox["-",
       FontSize->16], 
      FractionBox[
       StyleBox[
        RowBox[{"(", 
         RowBox[{"lamda11", "-", "lamda22"}], ")"}],
        FontSize->16], 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          StyleBox[
           RowBox[{"(", 
            RowBox[{"lamda11", "-", "lamda22"}], ")"}],
           FontSize->16], "2"], "+", 
         RowBox[{"4", "\[Times]", 
          SuperscriptBox["lamda12", "2"]}]}]]]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     FractionBox[
      RowBox[{"2", "\[Times]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"lamda11", "\[Times]", "lamda22"}], "-", 
         SuperscriptBox["lamda12", "2"]}], ")"}]}], 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         StyleBox[
          RowBox[{"(", 
           RowBox[{"lamda11", "-", "lamda22"}], ")"}],
          FontSize->16], "2"], "+", 
        RowBox[{"4", "\[Times]", 
         SuperscriptBox["lamda12", "2"]}]}]]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"betaf1", "=", "1.88"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "beta_so", " ", "for", " ", "the", " ", "major", " ", "band", "*", "in", 
      " ", "unit", " ", "of", " ", "2.1", "*", "Tc"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"betaf2", "=", "0"}], ";", 
    RowBox[{"scalef", "=", "0.76"}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "coefficients", " ", "related", " ", "to", " ", "Lande", " ", "g"}], "-",
      "factor"}], "*)"}], 
   RowBox[{"(*", 
    RowBox[{"Bp", "=", 
     RowBox[{"scalef", "*", "Tc"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"arf", "=", "0.035"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "Rashba", " ", "SOC", " ", "for", " ", "the", " ", "major", " ", 
      "band"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"roupf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]], "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"roumf", "[", "x_", "]"}], ":=", 
     RowBox[{"0.5", "\[Times]", 
      RowBox[{"(", 
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "+", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]], "-", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "*", "scalef"}], "-", "arf"}], ")"}], "2"], "+", 
          SuperscriptBox["arf", "2"], "+", 
          SuperscriptBox["betaf1", "2"]}]]}], ")"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff1", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{
           RowBox[{"2", "\[Times]", 
            SuperscriptBox["arf", "2"]}], "+", 
           SuperscriptBox["betaf1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "*", "scalef"}], ")"}], 
            "2"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"roupf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"roumf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"]}]]}], ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roupf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}], "+", 
      RowBox[{"0.5", "\[Times]", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{
           RowBox[{"2", "\[Times]", 
            SuperscriptBox["arf", "2"]}], "+", 
           SuperscriptBox["betaf1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "*", "scalef"}], ")"}], 
            "2"]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"roupf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{"roumf", "[", 
             RowBox[{"(", 
              RowBox[{"x", "*", "Bp"}], ")"}], "]"}], "2"]}]]}], ")"}], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             RowBox[{"roumf", "[", 
              RowBox[{"(", 
               RowBox[{"x", "*", "Bp"}], ")"}], "]"}], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"ff2", "[", 
      RowBox[{"tt_", ",", "x_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"Log", "[", "tt", "]"}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["scalef", "2"], "\[Times]", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"x", "*", "Bp"}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["betaf2", "2"], "+", 
         RowBox[{
          SuperscriptBox["scalef", "2"], "\[Times]", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
       RowBox[{"Re", "[", 
        RowBox[{
         RowBox[{"PolyGamma", "[", 
          RowBox[{"0.5", "+", 
           RowBox[{"\[ImaginaryI]", 
            FractionBox[
             SqrtBox[
              RowBox[{
               SuperscriptBox["betaf2", "2"], "+", 
               RowBox[{
                SuperscriptBox["scalef", "2"], "\[Times]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"x", "*", "Bp"}], ")"}], "2"]}]}]], 
             RowBox[{"2", " ", "\[Pi]", " ", "tt"}]]}]}], "]"}], "-", 
         RowBox[{"PolyGamma", "[", "0.5", "]"}]}], "]"}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aa", "=", 
     RowBox[{"ContourPlot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"a0", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}], "\[Times]", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a1", "*", 
          RowBox[{"ff1", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}], "+", 
         RowBox[{"a2", "*", 
          RowBox[{"ff2", "[", 
           RowBox[{"tt", ",", "x"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{"{", 
        RowBox[{"tt", ",", "0.01", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"aa", ",", 
       RowBox[{"ListPlot", "[", 
        RowBox[{"Take", "[", 
         RowBox[{"data", ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{"dataFFLO", ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"Length", "[", "dataFFLO", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "2"}], "}"}]}], "]"}], ",", 
         RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<T/\!\(\*SubscriptBox[\(T\), \(c\)]\)\>\"", ",", 
        "\"\<B/\!\(\*SubscriptBox[\(B\), \(p\)]\)\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.739102175399826*^9, 3.739102196393523*^9}, {
   3.739102331187825*^9, 3.7391023454625196`*^9}, {3.739103650457354*^9, 
   3.73910365269709*^9}, {3.739147256523315*^9, 3.739147441257086*^9}, {
   3.739147472494151*^9, 3.7391474729396544`*^9}, {3.73914750866812*^9, 
   3.739147509033792*^9}, {3.739147542638554*^9, 3.7391476807340517`*^9}, 
   3.739147866946693*^9, {3.739147941115942*^9, 3.7391481850060387`*^9}, {
   3.7391482401191587`*^9, 3.739148436180442*^9}, {3.73914850242619*^9, 
   3.739148544738825*^9}, 3.739148624755075*^9, {3.7391486586343718`*^9, 
   3.739148659190963*^9}, {3.7391486909651823`*^9, 3.739148904272581*^9}, 
   3.7413482436301537`*^9, {3.741348555761228*^9, 3.741348583375167*^9}, 
   3.7413486704266*^9, {3.7413487033811293`*^9, 3.7413487470444098`*^9}, {
   3.7413489007803593`*^9, 3.741348966109733*^9}, {3.741349024760106*^9, 
   3.741349101609005*^9}, {3.741349163121254*^9, 3.74134934459652*^9}, {
   3.741349665014824*^9, 3.7413497489166193`*^9}, 3.741350312667904*^9, {
   3.7413503526499434`*^9, 3.7413503600550747`*^9}, 3.741352077078764*^9, 
   3.7413521250328217`*^9, {3.741352449773336*^9, 3.7413524502432528`*^9}, {
   3.741352488226451*^9, 3.7413525495410347`*^9}, 3.741353866327914*^9, 
   3.7413539217015944`*^9, {3.7428762449254637`*^9, 3.7428764249920797`*^9}, {
   3.742876554242976*^9, 3.742876666038617*^9}, {3.742876766670405*^9, 
   3.742877030090322*^9}, {3.742879816427549*^9, 3.742880025896957*^9}, {
   3.7428801073940887`*^9, 3.742880239921596*^9}, {3.742880275960535*^9, 
   3.7428804870971117`*^9}, {3.7428805374762278`*^9, 3.742880537969866*^9}, {
   3.74288056984235*^9, 3.742880589883847*^9}, {3.742880631217258*^9, 
   3.7428808044317513`*^9}, {3.742880927753875*^9, 3.7428811137341833`*^9}, {
   3.742881154961471*^9, 3.7428813345141163`*^9}, {3.742881388773234*^9, 
   3.7428815249260387`*^9}, {3.7428815623375463`*^9, 
   3.7428815662949753`*^9}, {3.742881598472932*^9, 3.742881674591114*^9}, {
   3.742881716033863*^9, 3.742881767090048*^9}, {3.742881932061864*^9, 
   3.7428820048369617`*^9}, {3.742882260336389*^9, 3.742882294460621*^9}, 
   3.7428823707292*^9, {3.742882418422101*^9, 3.742882418723472*^9}, {
   3.74288355939159*^9, 3.7428835598359747`*^9}, 3.742884075790196*^9, 
   3.742884106513248*^9, 3.742884147299919*^9, {3.7428841795849743`*^9, 
   3.742884186880262*^9}, {3.742884234690473*^9, 3.742884297811964*^9}, {
   3.7428849208900223`*^9, 3.7428849696372766`*^9}, {3.742958321224535*^9, 
   3.742958334639358*^9}, {3.742958382379582*^9, 3.742958436980788*^9}, {
   3.7567070104032483`*^9, 3.7567070467992916`*^9}, {3.75670708788931*^9, 
   3.756707105731181*^9}, 3.756722441832169*^9, 3.756727141333909*^9, {
   3.7567280429718447`*^9, 3.756728351809244*^9}, 3.7567283863936996`*^9, {
   3.756728416598062*^9, 3.756728782333664*^9}, {3.756728868941865*^9, 
   3.75672893882086*^9}, 3.7567290273716393`*^9, {3.7571215285864353`*^9, 
   3.7571215301581917`*^9}, {3.757121563981743*^9, 3.7571215780690703`*^9}, {
   3.757121615337406*^9, 3.757121618106041*^9}, {3.757121664420191*^9, 
   3.757121680062321*^9}, {3.77426739849783*^9, 3.774267447417371*^9}, {
   3.7747585530295*^9, 3.7747585880548143`*^9}, {3.7747586188939533`*^9, 
   3.7747586371160207`*^9}, {3.7887628885780277`*^9, 3.7887629152381*^9}, {
   3.788768603854981*^9, 3.788768658839486*^9}, 3.788769621827959*^9, {
   3.788774099953636*^9, 3.78877410006677*^9}, {3.7887744228391933`*^9, 
   3.788774422931678*^9}, {3.7887749320902433`*^9, 3.788775061104582*^9}, {
   3.7887790421897583`*^9, 3.7887790842110167`*^9}, {3.788783147322344*^9, 
   3.788783148600451*^9}, {3.788783202326013*^9, 3.788783204122616*^9}, {
   3.7887843528120127`*^9, 3.788784368414184*^9}, 3.788786052486154*^9, {
   3.788788777118781*^9, 3.7887888145446453`*^9}},
 CellLabel->
  "In[2685]:=",ExpressionUUID->"6580a207-b33e-4e49-9b16-0109dc7e550e"],

Cell[BoxData[
 GraphicsBox[{{GraphicsComplexBox[CompressedData["
1:eJxFVwk4Vev3lqRuSoiIJNJkuJXScNFL0q1Is6nURX/SNSSJpouI0lVIomRK
UqYyZjyDY9aVIWSep8PZHPP8O8491/971n728z57f3vttda7hk/a1Pbs/3Fz
cXE1sa6Fuz3TvsvEuRR+ssdZ0nZI0SZK4NxfpfgcWWqpWa+LrVMqhoq2pfjb
cFppfZY77vB97Jy7Woq0mtvigZG+8BeIdck1+2+/H05tu2z/aHspyu+bZu/k
D0PchTMy9kL/PY/A8LGABwZVJXD6NX+pt1cUSn1W/jGbVQItvXvOK3s/QKtP
Z1jKtQT1qdYsicGLy7wHDaxKMDyakJRiHoubjCS+xydLcL46x1ElMg6H/4z5
ajRSDO6lT1qqWj5jOK0tuje2mKMvEerb5/I9bYqx/5/DfNf1kpDTJs+SYtyM
8DwtqpMMGQdTj9sNRUiII+l5vk6Bxt7s1lMPi8BWX5+KOImsKgP1Ilzx3sVY
mZqGlTXvbqitLIItNYJ6Wv0rRK8d7CJNFMBFbTr5hkIm9EokNgf2FEDJtVWl
3igTIUbl0h2dBbB49Kyl2DQTwmqTc1daCzj2ZSKC9OIHMz8f8nfpHl8p2Wi/
EdnYfC0fbSei13a75cDLSL/mVXYeLGM3u9e/JYFt/vs8XFCp36lYSEJ925ox
Fbc8cLEXGadmhQbGC2gI9n8az+VFxm/RbiyhQZsm+E7gCxkbnmZEfBOgwf+w
o+LyHjI8gqf7uU1zIU3EVz/Sp0BDznS8ZmkuFNekRnZ7UWDUNbI+xoMKQ4Fr
yzdmUlDhYx9qrE6F2NXHSnr1FPh+LNc5I0xFmL+g1PZBCjo8j5rJbqEgooh+
QF6Vio2P6Ge+bqTgcrTO+9RDVIT4Wzq/FKfA/Jz+kyLWd5rU15rNj5E58aKi
ipm/YusUCTwNpRnu7lS8zvK80JFFwpDQ7lgeTypy985tCxDLQTjt1tKGGCr+
DVM2em2jSNoJVMTVWPzWfiYbgh9MG6VZWKrlSrh7byYUysTMjpOp4KVFsUzI
BJdokNk5FjaWfSiYx52J5GY+LuFMKhLsYpxoEengEvFqL85i/W9swP6ju9LR
+OmX/VFfqYjZffXRoZKv0Gfou+9mfX+ja/Pyk4fTUHj9VvDZUCr2vVzwaCr4
HwR+mg9k+e2eb3/ch1Ro1mQ5bnlOxeNdPRTJvGRMfjBXq71KxT8Pbi/58pHF
w5XxqSQTKqZSupX3vkwG70VZg2pj1v5EYjBzJmnRP+bslQg9racF/4hRoezy
ocIr9DOCfC7n25dQMKe7wMDPcH82F2ZNpuBgx36BzJF4jIc6jH0JoYAkpq5L
N4lDWKCxdrsDBQq2f/8RQYqBHZ/wM1EDFr5bNLLB7yPKN1OfvlhPgbG6ldzq
gx8gFm6941g7GRa/ZTr/rHgP52HPsZ5kMjolDGWWfn6HQ7Z/Wqx2IeOZoM6I
Y2IEhINKNkVeJ+NtuESG0C8R0LA6Eu59gYx9t40aHYyDF/l6P0+fJcGQqVyS
4jdPwqfWtdeDlfzhaPD6YqUXCdJnNyc3mPpB8qzq7lEWvicc/3vrXXfkB774
dPbE/2Me+wOR9RdnYBPr239xlT/m5hfWNJ6fnD4bRH+Fkr9eS2s2TC/qOy6b
YGWTMI3kC+czIqXC8JOdj9Pw17WwG7KLQEL6SXvnTdNwCK8uZlyKRDKbaFOL
/mhfcknNzWEKea/ETOQPRoN7v2bdKcMpuPXFRikMRsOHHa8pnGii8d96+Qmj
zyZEKoWm8DDA5o5cZDyyXZ/yOQZPIszu843k3i/4nR3gScitf8GjW5KI/B2H
jsn3TCzyw51Lz+LO4wmUH/bQrf4rFQcMNHRVVSZwyYErKbQ6jWPv+CJfOw8r
hubRxpFoDtE+uwyIWGnrngsYX8yXtQo5WwTFxlGoH9Qu8C4HtR1HSeqTY5Ar
kl8VE0xCCvvFMZgoesaPelAwGeWv42g2tlgvdlsoCQwOjOKBR/mcf3Uulm3l
0dWuGsVyoYT3967SYMXWM4qY4N7eDLV8eGV7ywtojy7WxxA9z+m3xAh4pvxE
+9MLYTVlcWtLwQgUH36jalUXYTO7nYzgwX2xaeaxEhydKNKf+X1ksR/ReyrN
1NaMgL5i9/runm+Q3Ct2b/23YVSPmS535PuOOnY8h7En6bLrOp3vmAv2mRDW
G+bw5Tsc/f1DzmgNI6RCwUbyYjkGrsU23J5hwknzY+PxmHI8dra2a2tjon2h
XeRUQHGt6S6Jv5mIW5OTSBaqhPKpmgsN9kzwWTrXcYVVwpcdbyZesbxf3lwJ
t+oppUfKTDhAcR/DuQoak34jX5czoa25ENEfKJTa2Hi+dQjb5U492/fmB8df
Q3AnbZ+2ZP7Am0plH82QIexpCNG8WFwN2hOlW2amQ0gyahKjHKlBkKzM0hUa
Q+A/YZ8dk1aDY2z+DMGKJ/6GQ08t7gvVlk9UDkKC3TB/Qj813uN+9CBoUivq
mZZ1qFWT/SB6cxBuy/Yp3Tevh1aCqT2hxMJPFipIPeKlKy7Mrx/ELzYlZTpE
PRxnKKQdQoM4t25PU6JKA4dvBKfeNSAlwCYzIJrAOy2ebqZjI76vXmZUakGg
L4yfJU3YH2uwmVeKhbN+M5SPaOLwi4Ht8mHv3nM3w07Lb6t+HAMm6wKvmyY0
g8vZuXLFRQZ2XHpOHd3egm3l9Nqs1QyIHgkR6fq7heOvAfQOdC4ZXN0KYR7x
59qqA2i0EBV4c6IV2l+/a87M9iPpQFPO7apW+Om/3LnfvR9fyPN3hIlWJES9
mXl5vR++C+3Mqo3lt8FkiSE6co4NTKq+boOHeFTP22I6/rxjxrN2tg2WlnJx
ZGs6Wm1/lkqy8L/8ouP5mQiywpV2BKX1mp1bQ4eW87aYTu92zDzSPLuxtQ/W
rudfZQh14OYOVb7LJn04kW7nKLC5A34JKy/Qz/Rh0ithwiuhA3F1h9/EkXrx
LoymwHW6kxPPXgiq6jMNIzshUJ2eM1vUg7iF9C7vhIqvgPeEfw+SC3aGjpt0
QcSOuaN3vhsFYXc95U274OPHMxnHwibsAaMLJldrkyb1u3HPZ2NTrUQ3tqeO
mh/7tRvXaNLhCVe7OfNOF1TY80I3jqo236KkdEH+xuiW7Ipu0KRfa4TosfQs
pI9wDyxr3C6d5O1Ce9POnSJ6PZy60ok6cY+wEx49qF3Wrars1Amun4Xr1u7r
xb/jYQcyl+0pFmdh45xbOMTCRellv25i4eY6nRZlFl6jvyPtEAsT4uMOfCyc
Vj50NLulF4GW0pvKw9vxgF2/+8B/JMTJt7cN75y7bWkeffgpt85DJLoNOkuG
lnrS+v6bZ5GjQ9uQsY0O9fzQ7A2Rrdhd3lx0/Q4dPH5p62XWtIJnSGiPZC4d
L1bJjrX6t8BlhWRWiHA/pz+1wNxl7LWJQT/0CvP1/JlN6GxYIFg/1NX+iGWW
NaLGS8eY6GI9/2GYcSSsAccEt8o5KQxw5rt6NJ0OqdpkM4BPm0rL9u+qQ1AP
cTUlawD7VDunbj2rxc1dRUkYGMDe+WEe79AaHA8VST0pyODEoxpHeOTjXcwY
2BzsNMhPr0Jd558PXkcxUJC7gd9crhJL53kP3C1gcOytgJRfkKRmGQPzIxKy
cqsqsNCNjZoY8KE8qx17WQ4lB33eAUGCY993mE6ExZ7fScA2k7dScOYbvNvr
t1mrEmiROnC0Yvk3PK8t42k+Q3DsKeHUXwLUh/etVw4WgvLIKn6PKyvvzZ3U
RawLIHwpkdvDk+D8fz6cx4+vYvgRaPfKcHXPyIPdgcBTUpEEZKSVvaZHcqHs
Eyi+I4lYnG/Wzr6NDUgjEEJyslmXQYGzXdvHh1QC3CoWdRoGZAw+iBefLSSg
WOu9r6grBzlSrrwNVcTiPF3porfMrZ7A04G3T5ZsSkf1udxPa9qIxXk+iCvM
d0sXgdLZUPmggyl4+EOjILOXQNQv742XfElCslyMw89+YvH8cOOPZaaTDAIB
EfpHp5S/gHyFIcYcJiBL+32v4XAsGnaVuaiNEovnleq5shaZMQLr9k5S2n79
hFUxH/t+TBGgZ8n4Cw1GYIWkxpYD08TieSh+xeXZuyzMrX/pMH9aOCgR2wbI
cwRsim96pwX5gT9PV/SfOWLxfCVn0n33BwubTL86TZ31RZxQev9CHeZ6qm16
9oQSJESa2Hjubu53qeNK+B/JOw2C
     "], {{}, {}, 
      TagBox[
       TooltipBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
          69, 70, 71, 72, 73, 74, 75, 76}], 
         LineBox[{77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 
          92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 
          107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 
          120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 
          133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 
          146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 
          159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 
          172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 
          185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 
          198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 
          211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222}]},
        RowBox[{
          RowBox[{
            RowBox[{"0.07984536437142165`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.9999999999999999`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.2677278987900969`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.9201546356285784`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"3.53685`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"2.8297430098560006`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"3.53685`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"2.8297430098560006`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}], "+", 
            RowBox[{"1.3312875579307093`", " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.9999999999999999`", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.2677278987900969`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    SqrtBox[
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}], " ", 
              RowBox[{"(", 
                RowBox[{
                  RowBox[{"Log", "[", 
                    TagBox["tt", HoldForm], "]"}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"3.53685`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"2.8297430098560006`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}], "+", 
                  RowBox[{"0.5`", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"3.53685`", "\[VeryThinSpace]"}], "-", 
                    RowBox[{"2.8297430098560006`", " ", 
                    SuperscriptBox[
                    TagBox["x", HoldForm], "2"]}]}], 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "0.25`"}], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}], "+", 
                    RowBox[{"0.25`", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}], 
                    "2"]}]}]]}], ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"1.9635100260214235`", "\[VeryThinSpace]"}], "+", 
                    
                    RowBox[{"Re", "[", 
                    RowBox[{"PolyGamma", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{
                    RowBox[{"0.5`", "\[VeryThinSpace]"}], "+", 
                    FractionBox[
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"0.07957747154594767`", " ", "\[ImaginaryI]"}]}], 
                    ")"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "0.035`"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]], "+", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"3.5356249999999996`", "\[VeryThinSpace]"}], "+", 
                    
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"0.035`", "\[VeryThinSpace]"}], "+", 
                    RowBox[{"1.6821840000000001`", " ", 
                    TagBox["x", HoldForm]}]}], ")"}], "2"]}]]}], ")"}]}], 
                    TagBox["tt", HoldForm]]}]}], "]"}], "]"}]}], ")"}]}]}], 
                ")"}]}]}], "\[Equal]", "0"}]],
       Annotation[#, 0.07984536437142165 (Log[
             HoldForm[$CellContext`tt]] + 
           0.9999999999999999 (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.2677278987900969] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) + 1.9201546356285784` (Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 + (3.53685 - 2.8297430098560006` 
               HoldForm[$CellContext`x]^2)/((-0.25) (-(
                    3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                   3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2])^2 + 
              0.25 ((3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                   3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2])^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) (-(
                    3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                    Rational[1, 2] + (
                    3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2])]]) + 
           0.5 (1 - (3.53685 - 2.8297430098560006` 
              HoldForm[$CellContext`x]^2)/((-0.25) (-(
                   3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                  3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2])^2 + 
             0.25 ((3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2] + (
                  3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2])^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) ((
                    3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2])]])) + 1.3312875579307093` (Log[
             HoldForm[$CellContext`tt]] + 
           0.9999999999999999 (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.2677278987900969] 
                 HoldForm[$CellContext`tt]^(-1) (HoldForm[$CellContext`x]^2)^
                  Rational[1, 2]]])) (Log[
             HoldForm[$CellContext`tt]] + 
           0.5 (1 + (3.53685 - 2.8297430098560006` 
               HoldForm[$CellContext`x]^2)/((-0.25) (-(
                    3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                   3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2])^2 + 
              0.25 ((3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                   3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2])^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) (-(
                    3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                    Rational[1, 2] + (
                    3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2])]]) + 
           0.5 (1 - (3.53685 - 2.8297430098560006` 
              HoldForm[$CellContext`x]^2)/((-0.25) (-(
                   3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                  Rational[1, 2] + (
                  3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2])^2 + 
             0.25 ((3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2] + (
                  3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                 Rational[1, 2])^2)) (1.9635100260214235` + Re[
               PolyGamma[
               0, 0.5 + Complex[0., 0.07957747154594767] 
                 HoldForm[$CellContext`tt]^(-1) ((
                    3.5356249999999996` + (-0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2] + (
                    3.5356249999999996` + (0.035 + 
                    1.6821840000000001` HoldForm[$CellContext`x])^2)^
                   Rational[1, 2])]])) == 0, "Tooltip"]& ]}], {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQXfHGxmUn50T7eSfnGMk8/23fNVU2W8Bopv3TMpaz
whW/7b2FpB2tyxfYH7D/Ysyn99te/IbMnMN5S+w53kafY93/y965+b2kesJy
+8dbvU0ZSn/Zv+Fb3l//ZKX93jrrOb+0ftnfWdMTdtBqnT2rzmKzT7t/2vfp
v2+K8N5kv2tvE8tz9Z/22hHHg7eEbbO/Y3yL9WbeD/tIR8Np3hy77FUeOi64
8P+7/T/xrgodiwP2W6wFr+5X/G4/td0vvLb8sP31jRnXNmZ8s589rbnthfVR
+x5njyXLrny13xi3rJ1JHMGvPBQCRCft1+2cv3SG9Ff7lLNuq9YdPGe/6scz
3laJL/Zcpk7VRT6X7FeY65UVin6250hyiJSKv2Zfb5/qGnHio/0CpTWrfvrf
tj+sLeJhE/bB3q5vKld00n372HnLjnvHvLMHK7/30N7gqcp/OZ439jufhjx0
fPIY6t+X9jePntCqe47g6x8wvmxQ+BTqv+f29zvz//JFP7eXi79QsPLnU/u7
HMdXXp38yl4o+q1g9NuH9sUZE9/W2L+1X9gVekr/1R37Sx3fLnZ8e2v/4Muk
uW8Kb9p3XkzuuJj8wZ4BCgC18eeJ
       "]]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}, {{}, 
    GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQDQEf7GEs2yTrTeemvrd/3yf/gPf2aXv+/TLv3717
Z68l/97B+8h1+2COsAz9hW/tt+2aHdW06aF9wAHvDazRb+wP3uV71rfiqX3E
cs/y8vLX9lmlX+Jjvj63/9Lx9oRV+Cv7PuZJ584ZvrJPOl4ULjfhhb1d4KmJ
kh/f2AuKsbnx1j+3v1nDVfkm4p392u8rp1+Ie2a/1uOvaXD9e/ufEkyWfY+f
2C+asbiOK/qD/cHQXVPZVR7bc95V9N169YP9R0OWIpnjD+31T8/64yf/0f6F
4O2Jpese2F+eLiGTEPAR6t679lKGItFNmz7ae57K85r/5aZ9Q+kkTV3dT/aH
1yx+o7rlur3G3J1va6Z/snef6GyY9eOy/dbzG7IPRn+Gmn/R3mH5P5fjzz7b
x89Vu3v37ln7vm8+Z9N2f4HqP27vKL73l8vJr/Z7lj9/for5kP3kg1vUla9/
s3fIO/lOdct2++wXAZ0nzH7YX7nYcVG9dpN95cOZn8Ju/bAXl3dWOF44x76U
L6njcPcveDwYPFX5L8fzx340fgZ3/AAANYGbpw==
     "], {{{}, {}, 
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26},
         VertexColors->Automatic]}}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
        NCache[
         Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
       1.6]}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}, {
       {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         NCache[
          Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[
        1.6]}, {}}},
     VertexColors->CompressedData["
1:eJzt0v0v1AEAx/E7Zh42pZJlRBLK83Kh1e1zYYrC5Wyx1nLmEqswFCMcUta4
6cFOG0fJw8bsSs3W4eqc47rMs6PjunPu6x5a9DyP+Sv6yQ/vn9+/vFyS0mNZ
JiQSibKd6XYr5wSn67zmEdipb7eTv8PCVlUrfe4LCihx5Az7ERR3r4s922TI
UUYc865eQkvCEKPDawRiy7BeM8xiKSw4yuG7DjpCFrfcO47IDSfuA7ka/naJ
vLJyAqrmWzFmimnsMr/iaINF+Gql+a42GgyksQ1V4lkUEr0OokAt/I5uBszM
qCANEl/0t5gHH4PMVZUWJr72exWPlHhKWj2oOK4Ch23Du5RL4FpeQNeaYhZ9
foLkhOtq/O1+XdP6kkCIdahd33s5+Lqa+GrWAhiZJpECKYHgRvfCSotpsDes
W5LyNJD2HLC6O0TAIHG685A/iURZjO1txiIavOvXfg8QcGW5LdxomUDUCUFF
9NQixM2xCVliApualW9C8wnQRCklFT5amLq4fM3o3/62u0dH142j2VkSPD6p
RSczRcd+RaCp/5B3jm4MPkW5XaH1BFKXcbW0hICzMpv1gTqGgTfh5avnl5DV
XWtpiCfAmGs887N1FMUdyTmsezqcohdxFGQCKQGciKCGEbRfMJ9KpehR08QX
r7O16FPL/1i7jYDDovrY0QyI55iGp/UuYpjKpTNHh9GjVyVkuxmxL1v47GaI
BoxVK6XI9xP2t/WUVU4aIWqx2UO7r8YTVfovOe8jeC9KuZdVRiw7ROY7cOfh
7MQyWHkOYVxAoXkIjVB/n9QPnPyMs46sCoZCgsNepMe7yUa8ZdL5kvBRyLrI
P2LM+qGXUY8UpBvwvNZj2nZQCEly5la1Togdbzve/qe3f0PFgJc=
      "]], {{}, {}}}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0.01, 0.},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
    "\"T/\\!\\(\\*SubscriptBox[\\(T\\), \\(c\\)]\\)\"", TraditionalForm], 
    FormBox[
    "\"B/\\!\\(\\*SubscriptBox[\\(B\\), \\(p\\)]\\)\"", TraditionalForm]},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{417.31249999999983`, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotRange->{{0.01, 1}, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.756728359091063*^9, 3.75672838726509*^9}, {
   3.756728417434537*^9, 3.756728767592208*^9}, {3.756728875206654*^9, 
   3.7567289411428957`*^9}, 3.7571215801365395`*^9, 3.7571216272694983`*^9, 
   3.757121681548345*^9, 3.7571383869777346`*^9, 3.7742674489972568`*^9, {
   3.7747585555240526`*^9, 3.7747585889529943`*^9}, {3.7747586207432384`*^9, 
   3.7747586379858203`*^9}, 3.78876291980273*^9, 3.7887686707551413`*^9, 
   3.78876974360548*^9, 3.788775065693158*^9, 3.788779086516029*^9, 
   3.788783151493649*^9, 3.7887832053251457`*^9, 3.7887843735705976`*^9, {
   3.7887887857345667`*^9, 3.788788815611886*^9}},
 CellLabel->
  "Out[2702]=",ExpressionUUID->"36c5569b-1bc7-4569-816b-ce351aef88a2"]
}, Open  ]]
},
WindowSize->{895, 618},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (2019\:5e744\:67088\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 99, 1, 4, "PageBreak",ExpressionUUID->"6ecba142-7832-4671-bb86-5d440311dbe0",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[682, 25, 22901, 594, 3030, "Input",ExpressionUUID->"ce6fefe9-3adc-4f8a-b34a-3c0f9569208f"],
Cell[23586, 621, 35420, 751, 466, "Output",ExpressionUUID->"859067ed-5c0b-4e5f-975b-15283edcda57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59043, 1377, 12097, 340, 1795, "Input",ExpressionUUID->"eab70da9-b90e-4f7d-b8c0-2407266dcdc3"],
Cell[71143, 1719, 15143, 301, 466, "Output",ExpressionUUID->"9bdd19a3-5d6e-4ed9-abe7-a4255a36fcce"]
}, Open  ]],
Cell[86301, 2023, 99, 1, 4, "PageBreak",ExpressionUUID->"debfc57f-3391-49a0-a661-65f49b6abbec",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[86425, 2028, 20531, 561, 2747, "Input",ExpressionUUID->"c707d823-e122-4a65-b67d-36632469cb21"],
Cell[106959, 2591, 37180, 791, 476, "Output",ExpressionUUID->"25cc9b7c-2bea-4e2a-824f-09d2e42ae1ed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144176, 3387, 14344, 395, 2036, "Input",ExpressionUUID->"b2938817-70c5-4c19-abf3-13ed7d312ee4"],
Cell[158523, 3784, 15845, 316, 476, "Output",ExpressionUUID->"bafdfb8c-879e-437e-9c5b-e4a200e6dbf9"]
}, Open  ]],
Cell[174383, 4103, 99, 1, 4, "PageBreak",ExpressionUUID->"71e677f0-d20f-4e1f-8039-7920127b8629",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[174507, 4108, 20565, 518, 2502, "Input",ExpressionUUID->"5cc24e35-df45-442f-9d7a-3499cb7f57a1"],
Cell[195075, 4628, 19746, 374, 466, "Output",ExpressionUUID->"56b2660a-c9b2-4ea8-9b4c-211f4ad78ceb"]
}, Open  ]],
Cell[214836, 5005, 99, 1, 4, "PageBreak",ExpressionUUID->"3f05ef6e-14dd-4752-bbc9-7b8e9ce8166f",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[214960, 5010, 24939, 635, 3079, "Input",ExpressionUUID->"6580a207-b33e-4e49-9b16-0109dc7e550e"],
Cell[239902, 5647, 36921, 780, 538, "Output",ExpressionUUID->"36c5569b-1bc7-4569-816b-ce351aef88a2"]
}, Open  ]]
}
]
*)

